Nested function: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,014: / Line 1,014: @@
 =={{header|Lambdatalk}}==
-Lambdatalk has neither closures nor states ... outside arrays.
+Lambdatalk has neither closures nor states but we can do that, thanks to mutability of arrays behaving as "sandbox" of mutability.
 <syntaxhighlight lang="scheme">
-{def makeItem
- {lambda {:c :item}
-  {div}{A.first {A.set! 0 {+ {A.first :c} 1} :c}}: :item}}
--> makeItem
 {def makeList
+ {def makeItem
+  {lambda {:s :a :i}
+   {div}{A.first {A.set! 0 {+ {A.first :a} 1} :a}}:s :i}}
  {lambda {:s}
-  {S.map {{lambda {:c :i} {makeItem :c :i}} {A.new 0}} :s}}}
+  {S.map {{lambda {:s :a :i} {makeItem :s :a :i}}
+                   :s {A.new 0}}
--> makeList
+         first second third
+}}}
+-> makeList
-{makeList first second third}
+{makeList .}
 ->
-: first
+. first
-: second
+. second
-: third
+. third
 </syntaxhighlight>