added old solutions
This commit is contained in:
parent
3a4827b082
commit
a373abfdf1
14 changed files with 153 additions and 0 deletions
6
hs/5.hs
Normal file
6
hs/5.hs
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
divisible x y = x `mod` y == 0
|
||||
|
||||
smallest x = if all (divisible x) [2..20] then x else smallest (succ x)
|
||||
|
||||
main = do
|
||||
print(smallest 1)
|
||||
Loading…
Add table
Add a link
Reference in a new issue