Šī lapa labāk darbojas, ja pārlūkam ir iespējots JavaScript.
Sākums
Izpētīt
lain.church
Palīdzība
Reģistrēties
Pierakstīties
tA
/
Spiral
Vērot
1
Pievienot zvaigznīti
0
Atdalīts
0
Kods
Problēmas
0
Izmaiņu pieprasījumi
0
Laidieni
0
Vikivietne
Aktivitāte
Pārlūkot izejas kodu
remembered to filter even numbers
master
Thorn Avery
pirms 4 gadiem
vecāks
b071c13cf8
revīzija
088ff88052
1 mainītis faili
ar
5 papildinājumiem
un
2 dzēšanām
Dalītais skats
Salīdzināšanas iespējas
Rādīt statistiku
Lejupielādēt ielāpa failu
Lejupielādēt izmaiņu failu
+5
-2
spiral.hs
+ 5
- 2
spiral.hs
Parādīt failu
@@ -54,5 +54,8 @@ main = do
(words args)
aura :: String -> Bool
aura s = foldr (&&) True
(map (`elem` ['0'..'9']) s)
aura s = if (foldr (&&) True (map (`elem` ['0'..'9']) s))
then ((mod rs 2) == 1)
else False
where
rs = (read s)::Int
Rakstīt
Priekšskatītījums
Notiek ielāde…
Atcelt
Saglabāt