steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.primes.factors: support command-line args like factor(1).

char-rename
John Benediktsson 2017-02-08 11:14:24 -08:00
parent 9d2e62f8e1
commit b5dd40cc53
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/math/primes/factors/factors.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2007-2009 Samuel Tardieu.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs combinators kernel make math math.functions
math.primes math.ranges sequences sequences.product sorting
io math.parser ;
USING: arrays assocs combinators command-line io kernel make
math math.functions math.parser math.primes math.ranges
namespaces sequences sequences.product sorting ;
IN: math.primes.factors
<PRIVATE
@ -62,6 +62,10 @@ PRIVATE>
] if* ;
: run-unix-factor ( -- )
[ readln [ unix-factor t ] [ f ] if* ] loop ;
command-line get [
[ readln [ unix-factor t ] [ f ] if* ] loop
] [
[ unix-factor ] each
] if-empty ;
MAIN: run-unix-factor