Rosetta Code

Pangram checker: Difference between revisions

← Older editNewer edit →
Content deleted Content added
PureFox (talk | contribs)
9,506 edits
Added FreeBASIC
Hout (talk | contribs)
9,665 edits
m →‎{{header|AppleScript}}: Updated primitives
Line 215:
-- GENERIC HIGHER ORDER FUNCTIONS (FILTER AND MAP)
 
-- filter :: (a -> Bool) -> [a] -> [a]
on filter(f, xs)
set mf totell mReturn(f)
set lst to {}
▼
set lstlng to {}length of xs
repeat with i from 1 to lng
set lng to length of xs
repeat with i from 1 set v to lngitem i of xs
set v to item if lambda(v, i, xs) then set end of xslst to v
ifend mf's lambda(v, i, xs) thenrepeat
set end ofreturn lst to v
end iftell
end repeat▼
return lst
end filter
 
-- map :: (a -> b) -> [a] -> [b]
on map(f, xs)
set mf totell mReturn(f)
set lng to length of xs
set lst to {}
repeat with i from 1 to lng
set end of lst to mf's lambda(item i of xs, i, xs)
end repeat
return lst
▲ end repeattell
end map
 
-- Lift 2nd class handler function into 1st class script wrapper
-- mReturn :: Handler -> Script
-- handler function --> first class script object
on mReturn(f)
if class of f is script then return f
script f
▲ else
property lambda : f▼
end script
▲ property lambda : f
end script
end if
end mReturn
 
Line 274 ⟶ 276:
end if
end unwrap
 
</lang>
 
Retrieved from "https://rosettacode.org/wiki/Pangram_checker"