本網站在啟用 JavaScript 的情況下可以運作的更好。
首頁
探索
lain.church
說明
註冊
登入
tA
/
Spiral
關注
1
收藏
0
複製
0
程式碼
問題
0
合併請求
0
版本發佈
0
Wiki
活動
瀏覽代碼
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…
取消
儲存