A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Least-common-multiple/Factor/least-common-multiple-1.factor
+++ b/Task/Least-common-multiple/Factor/least-common-multiple-1.factor
@ -0,0 +1,2 @@
+USING: math.functions prettyprint ;
+26 28 lcm .
--- a/Task/Least-common-multiple/Factor/least-common-multiple-2.factor
+++ b/Task/Least-common-multiple/Factor/least-common-multiple-2.factor
@ -0,0 +1,12 @@
+USING: kernel math prettyprint ;
+IN: script
+
+: gcd ( a b -- c )
+    [ abs ] [
+        [ nip ] [ mod ] 2bi gcd
+    ] if-zero ;
+
+: lcm ( a b -- c )
+    [ * abs ] [ gcd ] 2bi / ;
+
+26 28 lcm .