More convenient folder name

2020-12-04 17:05:20 -07:00
parent 2cacce20d8
commit 3ea6ec7d47
21 changed files with 0 additions and 0 deletions
--- a/projects/aoc/src/year2020/Util.kiss
+++ b/projects/aoc/src/year2020/Util.kiss
@@ -0,0 +1,12 @@
+(defun readLines [file]
+    (.filter
+        (.map
+            // TODO implement escape sequences in kiss string literals
+            (.split (.replace (File.getContent file) #|"\r"|# "") #|"\n"|#)
+            StringTools.trim)
+        (lambda [l] (< 0 l.length))))
+
+(defun readInts [file] (let [lines (readLines file)] (lines.map Std.parseInt)))
+
+(defun countChar [char str]
+    (count (str.split "") (lambda [c] ?(= c char))))