AnthonyMikh/oranges.hs

Created January 18, 2018 08:31

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/AnthonyMikh/e06f7defb1743d536720572913e3ffbb.js"></script>
Save AnthonyMikh/e06f7defb1743d536720572913e3ffbb to your computer and use it in GitHub Desktop.

Download ZIP

Решение задачи №62 от UniLecs

Raw

	import Data.List (foldl')

	solution = flip (-) 1 . foldl' lcm 1 . enumFromTo 1

	main = putStrLn . show $ solution 4

Author

AnthonyMikh commented Jan 18, 2018

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

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