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

pow

This commit is contained in:
Erik Osheim 2024-04-12 16:08:51 -04:00
parent 15faffbf00
commit e083e173e8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
demo.modal
View File

@ -196,4 +196,11 @@
<> ((mod ?x ?y)) ((mod1 (divmod ?x ?y)))
<> ((mod1 (?q ?r))) (?r)
(bstr (mul (int 123456789) (int 987654321)))
-- ( expontentiation )
<> ((pow ?x ())) ((1 ()))
<> ((pow ?x (0 ()))) ((1 ()))
<> ((pow ?x (1 ()))) (?x)
<> ((pow ?x (0 ?k))) ((pow (mul ?x ?x) ?k))
<> ((pow ?x (1 ?k))) ((mul ?x (pow (mul ?x ?x) ?k)))
(str (pow (int 13) (int 10)))