List comprehensions: Difference between revisions

m
→‎{{header|AppleScript}}: (updated a name in the concat function)
(→‎{{header|AppleScript}}: Updated (>>=) ('bind') function)
m (→‎{{header|AppleScript}}: (updated a name in the concat function))
Line 240:
if length of xs > 0 and class of (item 1 of xs) is string then
set unitempty to ""
else
set unitempty to {}
end if
foldl(append, unitempty, xs)
end concat
 
9,659

edits