Mercurial > repo

diff interps/glass/exa/fibonacci.glass @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/glass/exa/fibonacci.glass	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,35 @@
+{F
+  [f
+    (_a)A!
+    (_o)O!
+    (_t)$
+    (_n)1=
+    ,
+    (_isle)(_n)*<2>(_a)(le).?=
+    /(_isle)
+      <1>
+      ^
+    \
+    (_n)*<1>(_a)s.?(_t)f.?
+    (_n)*<2>(_a)s.?(_t)f.?
+    (_a)a.?
+  ]
+}
+
+{M
+  [m
+    (_a)A!
+    (_f)F!
+    (_o)O!
+    (_n)<1>=
+    (_nlm)<1>=
+    /(_nlm)
+      (_n)*(_f)f.?
+      (_o)(on).?
+      " "(_o)o.?
+      (_n)(_n)*<1>(_a)a.?=
+      (_nlm)(_n)*<20>(_a)(le).?=
+    \
+  ]
+}
+