Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
25
Task/Least-common-multiple/8th/least-common-multiple.8th
Normal file
25
Task/Least-common-multiple/8th/least-common-multiple.8th
Normal file
|
|
@ -0,0 +1,25 @@
|
|||
: gcd \ a b -- gcd
|
||||
dup 0 n:= if drop ;; then
|
||||
tuck \ b a b
|
||||
n:mod \ b a-mod-b
|
||||
recurse ;
|
||||
|
||||
: lcm \ m n
|
||||
2dup \ m n m n
|
||||
n:* \ m n m*n
|
||||
n:abs \ m n abs(m*n)
|
||||
-rot \ abs(m*n) m n
|
||||
gcd \ abs(m*n) gcd(m.n)
|
||||
n:/mod \ abs / gcd
|
||||
nip \ abs div gcd
|
||||
;
|
||||
|
||||
: demo \ n m --
|
||||
2dup "LCM of " . . " and " . . " = " . lcm . ;
|
||||
|
||||
12 18 demo cr
|
||||
-6 14 demo cr
|
||||
35 0 demo cr
|
||||
|
||||
|
||||
bye
|
||||
Loading…
Add table
Add a link
Reference in a new issue