diff options
Diffstat (limited to 'src/example')
| -rw-r--r-- | src/example/test1.lang | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/example/test1.lang b/src/example/test1.lang index 43f3111fa..f805b1085 100644 --- a/src/example/test1.lang +++ b/src/example/test1.lang @@ -1,16 +1,20 @@ (* 5 6) +## My first function definition! (def (repeat n val) (if (<=' n 0) (#Nil []) (#Cons [val (repeat (-' n 1) val)]))) +## Testing one, two, three... (repeat 5 5) (def (fold f init inputs) (case inputs + #( Outer comment #( Inner comment )# )# (#Nil []) init (#Cons [head tail]) (fold f (f init head) tail))) +## It's alive! (fold * 1 (repeat 5 5)) |