Initial commit

2021/day01/day01.bqn

@@ -0,0 +1,5 @@
+a←•BQN¨•Flines"input"
+# Fn←{+´(¯1⊸↓<1⊸↓)+˝˘ 𝕨↕𝕩}
+Fn←{+´0>𝕨↓⌽𝕩-𝕨⌽𝕩}
+•Show 1 Fn a  # part 1
+•Show 3 Fn a  # part 2

2021/day01/day01.c

@@ -0,0 +1,23 @@
+#include <stdio.h>
+
+int main(void)
+{
+  int buf[5000] = {0};
+  int count = 0;
+  while (scanf("%d\n", &buf[count++]) != EOF);
+  count--;
+
+  int part1 = 0;
+  for (int i = 1; i < count; ++i) {
+    part1 += buf[i] > buf[i - 1];
+  }
+  printf("%d\n", part1);
+
+  int part2 = 0;
+  for (int i = 3; i < count; ++i) {
+    part2 += buf[i] > buf[i-3];
+  }
+  printf("%d\n", part2);
+
+  return 0;
+}

2021/day01/day01.scm

@@ -0,0 +1,13 @@
+(import (chicken io) srfi-1)
+
+(define (read-input #!optional (port (current-input-port)))
+  (map string->number
+       (read-lines port)))
+
+(define (part1 l) (count < l (cdr l)))
+
+(define (part2 l) (count < l (cdddr l)))
+
+(let ((in (read-input)))
+  (print (part1 in))
+  (print (part2 in)))

2021/day01/day01_golf.c

@@ -0,0 +1,7 @@
+b[5000],p,q,n,i;
+main(){
+for(;~scanf("%d",b+n++););
+for(i=n-2;i--;)p+=b[i+1]>b[i];
+for(i=n-4;i--;)q+=b[i+3]>b[i];
+printf("%d %d",p,q);
+}

2021/day01/day01_r7rs.scm

@@ -0,0 +1,25 @@
+(cond-expand
+  (r7rs)
+  (chicken (import r7rs)))
+
+(import (scheme base)
+	(scheme write)
+	(scheme cxr)
+	(srfi 1))
+
+(define (read-input)
+  (let lp ((lines '()))
+    (if (and (not (null? lines)) (eof-object? (car lines)))
+	(map string->number (reverse (cdr lines)))
+	(lp (cons (read-line (current-input-port)) lines)))))
+
+(define (part1 l) (count < l (cdr l)))
+
+(define (part2 l) (count < l (cdddr l)))
+
+(let ((in (read-input)))
+  (write (part1 in))
+  (newline)
+  (write (part2 in))
+  (newline))
+