8 lines
186 B
Factor
8 lines
186 B
Factor
USING:
|
|
formatting
|
|
math math.primes.factors math.ranges
|
|
sequences ;
|
|
IN: rosetta-doors2
|
|
|
|
: main ( -- )
|
|
100 [1,b] [ divisors length odd? ] filter "Open %[%d, %]\n" printf ;
|