Leonardo numbers: Difference between revisions
m
→{{header|AppleScript}}: tidied
m (added a colon to a comment.) |
m (→{{header|AppleScript}}: tidied) |
||
Line 172:
Drawing N items from a non-finite generator:
<lang applescript>--
-- leo :: Int -> Int -> Int -> Generator [Int]
on leo(L0, L1, delta)
script
Line 186 ⟶ 188:
--
on run
set leonardo to leo(1, 1, 1)
Line 198 ⟶ 200:
--
-- twoLines :: [Int] -> String
Line 204 ⟶ 206:
script row
on |λ|(ns)
tab &
end |λ|
end script
Line 211 ⟶ 213:
--
-- chunksOf :: Int -> [a] -> [[a]]
Line 229 ⟶ 230:
foldl(go, {}, enumFromThenTo(1, n, lng))
end chunksOf
-- enumFromThenTo :: Int -> Int -> Int -> [Int]
Line 239 ⟶ 241:
return xs
end enumFromThenTo
-- foldl :: (a -> b -> a) -> a -> [b] -> a
Line 251 ⟶ 254:
end tell
end foldl
-- intercalate :: String -> [String] -> String
Line 260 ⟶ 264:
return s
end intercalate
-- Lift 2nd class handler function into 1st class script wrapper
Line 272 ⟶ 277:
end if
end mReturn
-- map :: (a -> b) -> [a] -> [b]
Line 284 ⟶ 290:
end tell
end map
-- max :: Ord a => a -> a -> a
Line 294 ⟶ 301:
end max
-- take :: Int -> [a] -> [a]
Line 330 ⟶ 333:
end if
end take
-- unlines :: [String] -> String
Line 341 ⟶ 345:
{{Out}}
<pre>First 25 Leonardo numbers:
First 25 Fibonacci numbers:
=={{header|AWK}}==
|