7 lines
280 B
Text
7 lines
280 B
Text
define: #multiplier -> [| :n1 :n2 | [| :m | n1 * n2 * m]].
|
|
define: #x -> 2.
|
|
define: #y -> 4.
|
|
define: #numlist -> {x. y. x + y}.
|
|
define: #numlisti -> (numlist collect: [| :x | 1.0 / x]).
|
|
|
|
numlist with: numlisti collect: [| :n1 :n2 | (multiplier applyTo: {n1. n2}) applyWith: 0.5].
|