Skip to content

Instantly share code, notes, and snippets.

@AnthonyMikh

AnthonyMikh/oranges.hs

Created January 18, 2018 08:31
Show Gist options
  • Save AnthonyMikh/e06f7defb1743d536720572913e3ffbb to your computer and use it in GitHub Desktop.
Save AnthonyMikh/e06f7defb1743d536720572913e3ffbb to your computer and use it in GitHub Desktop.
Download ZIP
Решение задачи №62 от UniLecs
Raw
oranges.hs
import Data.List (foldl')
solution = flip (-) 1 . foldl' lcm 1 . enumFromTo 1
main = putStrLn . show $ solution 4
@AnthonyMikh
Copy link
Author

lcm из прелюдии считает НОК аргументов.
foldl' является строгой версией foldl и применятеся исключительно из соображений производительности

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment