Partial function application: Difference between revisions

m
→‎{{header|AppleScript}}: (edited a name, slightly rearranged the test)
m (→‎{{header|AppleScript}}: (edited a name, slightly rearranged the test))
Line 151:
on run
set fs totell curry(map)
set fsf1 to |λ|(f1)
set fsf1fsf2 to fs's lambda|λ|(f1f2)
end tell
set fsf2 to fs's lambda(f2)
{fsf1's lambda({0, 1, 2, 3}), fsf2's lambda|λ|({0, 1, 2, 3}), ¬
fsf1fsf2's lambda|λ|({20, 41, 62, 83}), fsf2's lambda({2, 4, 6, 8})}¬
fsf1's |λ|({2, 4, 6, 8}), ¬
fsf2's |λ|({2, 4, 6, 8})}
end run
 
Line 166 ⟶ 169:
on curry(f)
script
on lambda|λ|(a)
script
on lambda|λ|(b)
lambda|λ|(a, b) of mReturn(f)
end lambda|λ|
end script
end lambda|λ|
end script
end curry
Line 182 ⟶ 185:
set lst to {}
repeat with i from 1 to lng
set end of lst to lambda|λ|(item i of xs, i, xs)
end repeat
return lst
Line 195 ⟶ 198:
else
script
property lambda|λ| : f
end script
end if
9,655

edits