Bu web sitesi JavaScript ile daha iyi çalışır.
Ana Sayfa
Keşfet
lain.church
Yardım
Üye Ol
Giriş Yap
tA
/
Spiral
İzle
1
Yıldızla
0
Çatalla
0
Kod
Konular
0
Değişiklik İstekleri
0
Sürümler
0
Wiki
Aktivite
Kaynağa Gözat
remembered to filter even numbers
master
Thorn Avery
4 yıl önce
ebeveyn
b071c13cf8
işleme
088ff88052
1 değiştirilmiş dosya
ile
5 ekleme
ve
2 silme
Görünümü Böl
Diff Seçenekleri
İstatistikleri Göster
Yama Dosyasını İndir
Diff Dosyasını İndir
+5
-2
spiral.hs
+ 5
- 2
spiral.hs
Dosyayı Görüntüle
@@ -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
Yaz
Önizleme
Yükleniyor…
İptal
Kaydet