Login
задача из Haskell
360 просмотров
Перейти к просмотру всей ветки
in Antwort MrSanders 22.04.14 00:42
Написал так:
allV :: [(Integer, Integer, Integer)]
allV = [(x,y,z) | x<-[1..20], y<-[1..20], z<-[1..20]]
summ :: [a] -> Int
summ allV = length allV
allV :: [(Integer, Integer, Integer)]
allV = [(x,y,z) | x<-[1..20], y<-[1..20], z<-[1..20]]
summ :: [a] -> Int
summ allV = length allV