Added ses for koka

Author: Undalevein

koka/sum-of-even-squares.kk

@@ -0,0 +1,10 @@
+fun sum-of-even-squares(a : list<int>)
+  a.filter-map(fn(i) { if i.is-even then Just(i*i) else Nothing}).sum
+
+fun main()
+  assert("Assertion failed.", sum-of-even-squares([]) == 0)
+  assert("Assertion failed.", sum-of-even-squares([1]) == 0)
+  assert("Assertion failed.", sum-of-even-squares([1,2]) == 4)
+  assert("Assertion failed.", sum-of-even-squares([1,2,3]) == 4)
+  assert("Assertion failed.", sum-of-even-squares([1,2,3,4]) == 20)
+  assert("Assertion failed.", sum-of-even-squares([4,6,7,2]) == 56)

koka/test.ps1

@@ -14,6 +14,7 @@ koka -v0 -e "$PSScriptRoot\clockhands.kk" |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
     Assert-MatchTests &&
 koka -v0 -e "$PSScriptRoot\hello.kk" &&
+koka -v0 -e "$PSScriptRoot\sum-of-even-squares.kk" &&
 koka -v0 -e "$PSScriptRoot\triple.kk" |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
     Assert-MatchTests &&