Pangram checker: Difference between revisions
m
→{{header|AppleScript}}
Not a robot (talk | contribs) (Add BCPL) |
|||
Line 216:
<lang AppleScript>use framework "Foundation" -- ( for case conversion function )
-- isPangram :: String -> Bool
Line 227:
end script
0 = length of filter(charUnUsed,
"abcdefghijklmnopqrstuvwxyz")
end isPangram
on run
map(isPangram, {¬
Line 240 ⟶ 241:
end run
-- filter :: (a -> Bool) -> [a] -> [a]
Line 254 ⟶ 256:
end tell
end filter
-- map :: (a -> b) -> [a] -> [b]
Line 267 ⟶ 270:
end map
-- Lift 2nd class handler function into
-- 1st class script wrapper
-- mReturn :: Handler -> Script
on mReturn(f)
Line 278 ⟶ 283:
end if
end mReturn
-- toLower :: String -> String
|