Mercurial > lbo > hg > ylisp
changeset 170:df15d77ffff1
Add example yl script
author | Lewin Bormann <lbo@spheniscida.de> |
---|---|
date | Tue, 03 Sep 2019 20:18:16 +0200 |
parents | cdf06bdd9592 |
children | 92c4365ce0b2 |
files | test.yl |
diffstat | 1 files changed, 24 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test.yl Tue Sep 03 20:18:16 2019 +0200 @@ -0,0 +1,24 @@ +(defn fac (n) + (if (== n 0) + 1 + ( + (* n + (fac (- n 1)) + ) + ) + ) + ) + +(let newline " +") + +(defn pow (a b) + (let next (- b 1)) + (if (== b 0) 1 + ((* a (pow a (- b 1)))) + ) + ) + +-- Here we output it +(print (fac 13) newline) +(print (pow 2 10) newline)