Пожалуйста, включите JavaScript.
Главная
Обзор
lain.church
Помощь
Регистрация
Вход
tA
/
Spiral
Следить
1
В избранное
0
Форкнуть
0
Код
Задачи
0
Pull Request'ы
0
Релизы
0
Вики
Активность
Просмотр исходного кода
remembered to filter even numbers
master
Thorn Avery
4 лет назад
Родитель
b071c13cf8
Сommit
088ff88052
1 измененных файлов
:
5 добавлений
и
2 удалений
Разделённый вид
Опции Diff
Показать статистику
Скачать Patch файл
Скачать Diff файл
+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
Редактирование
Предпросмотр
Загрузка…
Отмена
Сохранить