Este sitio web funciona mejor con JavaScript.
Inicio
Explorar
lain.church
Ayuda
Registro
Iniciar sesión
tA
/
Spiral
Seguir
1
Destacar
0
Fork
0
Código
Incidencias
0
Pull Requests
0
Lanzamientos
0
Wiki
Actividad
Explorar el Código
remembered to filter even numbers
master
Thorn Avery
hace 4 años
padre
b071c13cf8
commit
088ff88052
Se han
modificado 1 ficheros
con
5 adiciones
y
2 borrados
Dividir vista
Opciones de diferencias
Mostrar estadísticas
Descargar archivo de parche
Descargar archivo de diferencias
+5
-2
spiral.hs
+ 5
- 2
spiral.hs
Ver fichero
@@ -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
Escribir
Vista previa
Cargando…
Cancelar
Guardar