Count in factors: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,252: / Line 1,252: @@
 =={{header|Factor}}==
+<lang factor>USING: io kernel math.primes.factors math.ranges prettyprint
-<lang factor>
+sequences ;
-USING: math.parser math.primes.factors math.ranges ;
-IN: scratchpad "1: 1" print 2 20 [a,b] [ dup pprint ": " write factors [ number>string ] map " x " join print ] each
+: .factors ( n -- )
-</lang>
+    dup pprint ": " write factors
+    [ " × " write ] [ pprint ] interleave nl ;
+"1: 1" print 2 20 [a,b] [ .factors ] each</lang>
 {{out}}
 <pre>
@@ Line 1,261: / Line 1,265: @@
 : 2
 : 3
-: 2 x 2
+: 2 × 2
 : 5
-: 2 x 3
+: 2 × 3
 : 7
-: 2 x 2 x 2
+: 2 × 2 × 2
-: 3 x 3
+: 3 × 3
-: 2 x 5
+: 2 × 5
 : 11
-: 2 x 2 x 3
+: 2 × 2 × 3
 : 13
-: 2 x 7
+: 2 × 7
-: 3 x 5
+: 3 × 5
-: 2 x 2 x 2 x 2
+: 2 × 2 × 2 × 2
 : 17
-: 2 x 3 x 3
+: 2 × 3 × 3
 : 19
-: 2 x 2 x 5
+: 2 × 2 × 5
 </pre>