d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gcd + lcm + weird bug

This commit is contained in:
~d6 2024-04-12 18:24:54 -04:00
parent e083e173e8
commit dad487fde3
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
demo.modal
View File

@ -19,6 +19,7 @@
<> ((binary 9)) ((1 (0 (0 (1 ()))))) <> ((binary 9)) ((1 (0 (0 (1 ())))))
-- ( binary to decimal digit ) -- ( binary to decimal digit )
<> ((decimal ())) (0)
<> ((decimal (0 ()))) (0) <> ((decimal (0 ()))) (0)
<> ((decimal (1 ()))) (1) <> ((decimal (1 ()))) (1)
<> ((decimal (0 (1 ())))) (2) <> ((decimal (0 (1 ())))) (2)
@ -203,4 +204,13 @@
<> ((pow ?x (0 ?k))) ((pow (mul ?x ?x) ?k)) <> ((pow ?x (0 ?k))) ((pow (mul ?x ?x) ?k))
<> ((pow ?x (1 ?k))) ((mul ?x (pow (mul ?x ?x) ?k))) <> ((pow ?x (1 ?k))) ((mul ?x (pow (mul ?x ?x) ?k)))
(str (pow (int 13) (int 10))) -- ( greatest common denominator )
<> ((gcd ?a ?b)) ((gcd1 ?a ?b (cmp ?b (0 ()))))
<> ((gcd1 ?a ?b #eq)) (?a)
<> ((gcd1 ?a ?b #gt)) ((gcd ?b (mod ?a ?b)))
<> ((gcd1 ?a ?b #lt)) ((gcd ?b (mod ?a ?b)))
-- ( least common multiple )
<> ((lcm ?a ?b)) ((mul ?a (div ?b (gcd ?a ?b))))
(str (lcm (int 1000) (int 777)))