Check that file exists: Difference between revisions
m
→{{header|AppleScript}}
(→{{header|AppleScript}}: Added an Applescript version) |
|||
Line 129:
-- The last four are returned by `doesDirectoryExist`,
-- which
end run
Line 185:
-- (<*> | 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
| |||