Monads/List monad: Difference between revisions
→{{header|AppleScript}}: Renamed 2 script objects for better ratio of signal-to-noise
(→{{header|AppleScript}}: Some simplification - normalised argument sequence in a couple of higher-order functions) |
(→{{header|AppleScript}}: Renamed 2 script objects for better ratio of signal-to-noise) |
||
Line 27:
-- pythagoreanTriples :: Int -> [(Int, Int, Int)]
on pythagoreanTriples(maxInteger)
script
on lambda(
script
on lambda(
script
on lambda(
if
unit([
else
[]
Line 41:
end script
bind(
end lambda
end script
bind(
end lambda
end script
bind(
end pythagoreanTriples
Line 129:
end if
end mReturn
</lang>
| |||