19 lines
296 B
Text
19 lines
296 B
Text
|
{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 {:s :a :i} {makeItem :s :a :i}}
|
||
|
|
:s {A.new 0}}
|
||
|
|
first second third
|
||
|
|
}}}
|
||
|
|
-> makeList
|
||
|
|
|
||
|
|
{makeList .}
|
||
|
|
->
|
||
|
|
1. first
|
||
|
|
2. second
|
||
|
|
3. third
|