Rosetta Code

List comprehensions: Difference between revisions

Page Discussion

List comprehensions (view source)

Revision as of 20:56, 29 September 2017

570 bytes removed ,  6 years ago
→‎{{header|AppleScript}}: Removed two unused generic functions
(→‎{{header|AppleScript}}: Updated concatMap)
(→‎{{header|AppleScript}}: Removed two unused generic functions)
Line 255:
return lst
end enumFromTo
 
-- foldl :: (a -> b -> a) -> a -> [b] -> a
on foldl(f, startValue, xs)
tell mReturn(f)
set v to startValue
set lng to length of xs
repeat with i from 1 to lng
set v to |λ|(v, item i of xs, i, xs)
end repeat
return v
end tell
end foldl
 
-- map :: (a -> b) -> [a] -> [b]
on map(f, xs)
tell mReturn(f)
set lng to length of xs
set lst to {}
repeat with i from 1 to lng
set end of lst to |λ|(item i of xs, i, xs)
end repeat
return lst
end tell
end map
 
-- Lift 2nd class handler function into 1st class script wrapper
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/41312"