File: dc_factor

package info (click to toggle)
bc 1.07.1-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,512 kB
  • sloc: ansic: 7,601; sh: 1,468; yacc: 1,110; lex: 342; makefile: 90
file content (17 lines) | stat: -rw-r--r-- 446 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/bin/sh
#
# Example taken from http://www.cs.unh.edu/~charpov/Programming/DC/
# and minimally modified to use dc -e '...' instead of echo '...' | dc
#
# Usage:
#    Invoke as 'dc_factor $ARG' and $ARG will be factored
# Example:
#     $ ./dc_factor 123456789              
#     3
#     3
#     3607
#     3803
#
# Dirk Eddelbuettel <edd@debian.org>  09 May 2003

dc -e "$1[p]s2[lip/dli%0=1dvsr]s12sid2%0=13sidvsr[dli%0=1lrli2+dsi!>.]ds.xd1<2"