Flatten a list: Difference between revisions
m
→{{header|AppleScript}}: Tidying and comments.
No edit summary |
m (→{{header|AppleScript}}: Tidying and comments.) |
||
Line 334:
Or,
{{trans|JavaScript}}
<lang AppleScript>-- flatten :: Tree a -> [a]
Line 345:
end flatten
on run
Line 354:
-- concatMap :: (a -> [b]) -> [a] -> [b]
|