personal/mumble
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add factorial, sum from 1 to n

Browse Source
This commit is contained in:
NunoSempere 2023-05-10 13:24:44 -04:00
parent bc55abc8f4
commit 28c8a8a401
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
README.md
View File

@ -76,16 +76,26 @@ mumble> def {sqsum} (@ {x y} {(+ (sq x) (sq y))})
mumble> sqsum 2 3 mumble> sqsum 2 3
mumble> VERBOSITY=0 mumble> VERBOSITY=0
mumble> def {init} (@ {xs} { list((head xs)) } ) mumble> def {init} (@ {xs} { list((head xs)) } )
mumble> def {unwrap} (@ {x} { head (list xx) } ) mumble> def {kopf} (@ {xx} { head (list xx) } )
mumble> init {1 2} mumble> init {1 2}
mumble> kopf (1 2)
mumble> ifelse 1 2 3 mumble> ifelse 1 2 3
mumble> if 1 2 3
mumble> ifelse 0 1 2 mumble> ifelse 0 1 2
mumble> ifelse {1 2 3} (1) (1) mumble> if 0 1 2
mumble> if {1 2 3} (1) (1)
mumble> def {positive} (@ {x} {> x 0}) mumble> def {positive} (@ {x} {> x 0})
mumble> def {fibtest} (@ {x} {if (> x 0) {+ x 1} 0 }) mumble> def {fibtest} (@ {x} {if (> x 0) {+ x 1} 0 })
mumble> fibtest 2 mumble> fibtest 2
mumble> def {fibonacci} (@ {x} {if (> x 1) { + (fibonacci (- x 2)) ( fibonacci ( - x 1 ) ) } 1} ) mumble> def {fibonacci} (@ {x} {if (> x 1) { + (fibonacci (- x 2)) ( fibonacci ( - x 1 ) ) } 1} )
mumble> fibonacci 4 mumble> fibonacci 4
mumble> def {!} (@ {x} { if ( > 1 x) 1 { * x (! (- x 1)) } })
mumble> ! 100
mumble> def {++} (@ {x} { if ( > 1 x) 0 { + x (++ (- x 1)) } })
mumble> ++ 10
mumble> def {++2} (@ {x} { / (* x (+ x 1)) 2 })
mumble> ++2 10
``` ```
## To do ## To do