Ce site fonctionne mieux avec JavaScript.
Accueil
Explorateur
lain.church
Aide
S'inscrire
Connexion
tA
/
Spiral
Suivre
1
Ajouter aux favoris
0
Bifurcation
0
Code
Tickets
0
Demandes d'ajout
0
Versions
0
Wiki
Activité
Parcourir la source
remembered to filter even numbers
master
Thorn Avery
il y a 4 ans
Parent
b071c13cf8
révision
088ff88052
1 fichiers modifiés
avec
5 ajouts
et
2 suppressions
Vue séparée
Option de Diff
Voir les Statistiques
Télécharger le Fichier Patch
Télécharger le Fichier des Différences
+5
-2
spiral.hs
+ 5
- 2
spiral.hs
Voir le fichier
@@ -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
Écrire
Aperçu
Chargement…
Annuler
Enregistrer