This website works better with JavaScript.
Начало
Каталог
lain.church
Помощ
Регистрация
Вход
tA
/
Spiral
Наблюдаван
1
Харесван
0
Разклонения
0
Код
Задачи
0
Заявки за сливане
0
Версии
0
Уики
Activity
Преглед на файлове
remembered to filter even numbers
master
Thorn Avery
преди 4 години
родител
b071c13cf8
ревизия
088ff88052
променени са
1 файла
, в които са
добавени 5
реда и са
изтрити 2
реда
Разделен изглед
Diff Options
Show Stats
Download Patch File
Download Diff File
+5
-2
spiral.hs
+ 5
- 2
spiral.hs
Целия файл
@@ -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
Write
Preview
Loading…
Отказ
Запис