Semiprime: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,467: / Line 1,467: @@
 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95
 </pre>
+=={{header|Lambdatalk}}==
+<syntaxhighlight lang="scheme">
+{def factors
+ {def factors.r
+  {lambda {:n :i}
+   {if {> :i :n}
+    then
+    else {if {= {% :n :i} 0}
+    then :i {factors.r {/ :n :i} :i}
+    else {factors.r :n {+ :i 1}} }}}}
+ {lambda {:n}
+   {A.new {factors.r :n 2} }}}
+-> factors
+{S.replace \s by space in
+ {S.map {lambda {:i}
+         {let { {:i :i} {:f {factors :i}}
+              } {if {= {A.length :f} 2}
+                 then :i={A.first :f}*{A.last :f}
+                 else}} }
+       {S.serie 1 100}}}
+->
+= 2*2
+= 2*3
+= 3*3
+= 2*5
+= 2*7
+= 3*5
+= 3*7
+= 2*11
+= 5*5
+= 2*13
+= 3*11
+= 2*17
+= 5*7
+= 2*19
+= 3*13
+= 2*23
+= 7*7
+= 3*17
+= 5*11
+= 3*19
+= 2*29
+= 2*31
+= 5*13
+= 3*23
+= 2*37
+= 7*11
+= 2*41
+= 5*17
+= 2*43
+= 3*29
+= 7*13
+= 3*31
+= 2*47
+= 5*19
+</syntaxhighlight>
 =={{header|Lingo}}==