Rosetta Code

Power set: Difference between revisions

Page Discussion

Power set (view source)

Revision as of 18:33, 2 December 2016

333 bytes removed ,  7 years ago
→‎{{header|AppleScript}}
m (AppleScript Adjusting names etc to improve readability of relationship to JS and Haskell examples)
Line 244:
end script
end if
end mReturn</lang>
 
-- concat :: [[a]] -> [a] | [String] -> String
on concat(xs)
script append
on lambda(a, b)
a & b
end lambda
end script
if length of xs > 0 and class of (item 1 of xs) is string then
set unit to ""
else
set unit to {}
end if
foldl(append, unit, xs)
end concat</lang>
 
{{Out}}
Hout
9,659

edits

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