Strona działa najlepiej z włączonym JavaScript.
Strona główna
Odkrywaj
lain.church
Pomoc
Zarejestruj się
Zaloguj się
tA
/
Spiral
Obserwuj
1
Polub
0
Forkuj
0
Kod
Zgłoszenia
0
Oczekujące zmiany
0
Wydania
0
Wiki
Aktywność
Przeglądaj źródła
remembered to filter even numbers
master
Thorn Avery
4 lat temu
rodzic
b071c13cf8
commit
088ff88052
1 zmienionych plików
z
5 dodań
i
2 usunięć
Widok podzielony
Opcje porównania
Pokaż statystyki
Ściągnij plik aktualizacji
Ściągnij plik porównania
+5
-2
spiral.hs
+ 5
- 2
spiral.hs
Wyświetl plik
@@ -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
Napisz
Podgląd
Ładowanie…
Anuluj
Zapisz