String case: Difference between revisions
m
→{{header|AppleScript}}: minor update of one primitive (ap <*>)
(→{{header|AppleScript}}: Updated primitives, and simplified test, replacing map with `ap` <*>) |
m (→{{header|AppleScript}}: minor update of one primitive (ap <*>)) |
||
Line 370:
-- (<*> | ap) :: [(a -> b)] -> [a] -> [b]
on ap(fs, xs)
set {
set lst to {}
repeat with i from 1 to
tell mReturn(item i of fs)
repeat with j from 1 to
set end of lst to |λ|(contents of (item j of xs))
end repeat
| |||