diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-24 21:09:07 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-24 21:12:23 -0800 |
commit | cb9e66d70b86909dc811182479253a78cfbead07 (patch) | |
tree | 2c11ee9a512640b46512dc4fba697289c85b4efb /factorial.mu | |
parent | 638ff3b1b84a17f8b92b89b1b305d83dcd66899c (diff) | |
download | mu-cb9e66d70b86909dc811182479253a78cfbead07.tar.gz |
314 - better syntax for functions
Diffstat (limited to 'factorial.mu')
-rw-r--r-- | factorial.mu | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/factorial.mu b/factorial.mu index 69d10180..9a07bc07 100644 --- a/factorial.mu +++ b/factorial.mu @@ -1,4 +1,4 @@ -(factorial +(def factorial [ ((default-scope scope-address) <- new (scope literal) (30 literal)) ((n integer) <- arg) { begin @@ -11,10 +11,12 @@ ((x integer) <- sub (n integer) (1 literal)) ((subresult integer) <- factorial (x integer)) ((result integer) <- mul (subresult integer) (n integer)) - (reply (result integer))) + (reply (result integer)) +]) -(main +(def main [ ((1 integer) <- factorial (5 literal)) (print-primitive ("result: " literal)) (print-primitive (1 integer)) - (print-primitive ("\n" literal))) + (print-primitive ("\n" literal)) +]) |