diff options
| author | Eduardo Julian | 2014-11-28 20:36:42 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2014-11-28 20:36:42 -0400 |
| commit | 1570e819a875ac0e7f80857f0793784984db687d (patch) | |
| tree | 0ef61457efe0f0a16345584c1be69fa777521640 /src/example/test1.lang | |
| parent | 1a2b6841604558266f2cbf5bcf1373ea257183c9 (diff) | |
+ Added single-line comments.
+ Added multi-line comments, with nesting.
Diffstat (limited to 'src/example/test1.lang')
| -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)) |