Common sorted list: Difference between revisions
m
→{{header|AppleScript}}
(→{{header|AppleScript}}: Added a composition of atomic functions) |
|||
Line 45:
-- concat :: [[a]] -> [a]
on concat(xs)
▲ ((ca's NSArray's arrayWithArray:xs)'s ¬
valueForKeyPath:"@unionOfArrays.self") as list
end concat
Line 53 ⟶ 52:
-- nub :: [a] -> [a]
on nub(xs)
▲ ((ca's NSArray's arrayWithArray:xs)'s ¬
valueForKeyPath:"@distinctUnionOfObjects.self") as list
end nub
| |||