5 lines
225 B
Factor
5 lines
225 B
Factor
USING: grouping math math.combinatorics math.functions
|
|
math.primes math.ranges prettyprint sequences sequences.extras ;
|
|
|
|
9 [1,b] all-subsets [ reverse 0 [ 10^ * + ] reduce-index ]
|
|
[ prime? ] map-filter 10 group simple-table.
|