From 3a861029fb0414785ab501e6768a970477471e07 Mon Sep 17 00:00:00 2001 From: AlephAlpha Date: Tue, 7 Jan 2025 10:40:02 +0800 Subject: [PATCH] :skull_and_crossbones: --- .github/workflows/test.yml | 2 +- test/Eval.hs | 14 ++++++++++++++ 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml index bfcfd22..54e3357 100644 --- a/.github/workflows/test.yml +++ b/.github/workflows/test.yml @@ -5,7 +5,7 @@ jobs: runs-on: ubuntu-latest strategy: matrix: - ghc: ['9.0.2', '9.4.8', '9.6.6', '9.8.2', '9.10.1'] + ghc: ['9.0.2', '9.4.8', '9.10.1', '9.12.1'] steps: - uses: actions/checkout@v4 - uses: haskell-actions/setup@v2 diff --git a/test/Eval.hs b/test/Eval.hs index 81ee63f..52fdbda 100644 --- a/test/Eval.hs +++ b/test/Eval.hs @@ -3922,3 +3922,17 @@ testEval = describe "Solutions to Code Golf Stack Exchange challenges" $ do [ ("6 2", Count 10) , ("9 3", Count 22) ] + describe "q276909: Walks in Nice (Nizza)" $ do + specEval + "ᵐįŋᵖ{∫ŤlƆž≥}→ᵐɗH" + [ ("3", Count 14) + , ("4", Count 42) + ] + describe "q277015: \"Graphing\" calculator" $ do + specEval + "R*+" + [ ("5 2 0", all_ ["[2,4,6,8,10]"]) + , ("15 1 1", all_ ["[2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]"]) + , ("1 1/2 -1", all_ ["[-1/2]"]) + , ("5 0 0", all_ ["[0,0,0,0,0]"]) + ]