diff options
| author | Kimplul <kimi.h.kuparinen@gmail.com> | 2024-10-20 22:47:03 +0300 |
|---|---|---|
| committer | Kimplul <kimi.h.kuparinen@gmail.com> | 2024-10-23 18:25:23 +0300 |
| commit | 4cf7c8bacfc836cff5278317cb32dc029cb87273 (patch) | |
| tree | 58d30dca3fe413c146fd0020abf8796606030db5 /examples/guile.lyn | |
| parent | c5babf57de94a9a5e35c4bbb1237f3bffd15456c (diff) | |
| download | lyn-4cf7c8bacfc836cff5278317cb32dc029cb87273.tar.gz lyn-4cf7c8bacfc836cff5278317cb32dc029cb87273.zip | |
play around with guile as a backend
+ I have officially devolved my language into an alternative syntax for
Scheme. Oh well.
Diffstat (limited to 'examples/guile.lyn')
| -rw-r--r-- | examples/guile.lyn | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/examples/guile.lyn b/examples/guile.lyn new file mode 100644 index 0000000..9d7f445 --- /dev/null +++ b/examples/guile.lyn @@ -0,0 +1,18 @@ +define-syntax-rule (for init condition post body) { + expand init + do () ((not (expand condition))) { + expand body + expand post + } +} + +define (sum n) { + define s 0 + for (define i 0) (< i n) (set! i (1+ i)) { + set! s (+ s i) + } + get s +} + +display (sum 1000000) +newline |