Add source files

Author: einarjon

.gitignore

@@ -0,0 +1 @@
+*.txt*

01.sh

@@ -0,0 +1,7 @@
+#! /usr/bin/env bash
+input=${1:-1.txt}
+A=($(sort -n $input));
+for a in ${A[@]}; do grep -wq $((2020-a)) $input && break; done
+echo "1A: $((2020-a)) + $a = $(((2020-a)*a))"
+b=:; for a in ${A[@]};do for i in ${A[@]}; do grep -wq $((2020-a-i)) $input && b=break; $b ; done; $b; done
+echo "1B: $((2020-a-i)) + $a + $i = $(((2020-a-i)*a*i))"

02.sh

@@ -0,0 +1,8 @@
+#! /usr/bin/env bash
+ans=0
+IFS=$'-:\ \n'
+while read m M b c; do x=${c//[^$b]}; [[ ${#x} -ge $m && ${#x} -le $M ]] && ans=$((ans+1)); done < ${1:-2.txt}
+echo "2A: $ans"
+ans=0
+while read m M b c; do x=${c:$((m-1)):1}; y=${c:$((M-1)):1}; [[ $x != $y ]] && [[ $b == $x || $b == $y ]] && ans=$((ans+1)); done < ${1:-2.txt}
+echo "2B: $ans"

03.sh

@@ -0,0 +1,8 @@
+#! /usr/bin/env bash
+A=($(< ${1:-3.txt})); l=${#A[0]}; k=0; j=3; total=1; x=""
+for i in ${A[@]}; do x+=${i:k:1}; k=$(((k+j)%l)); done; x=${x//\.}
+echo "3A: ${#x}"
+idx2=$(seq 0 2 $((${#A[@]}-1)))
+for j in 1 3 5 7; do x=""; k=0; for i in ${A[@]}; do x+=${i:k:1}; k=$(((k+j)%l)); done; x=${x//\.}; total+="*${#x}"; done
+for j in 1; do x=""; k=0; for i in $idx2; do x+=${A[i]:k:1}; k=$(((k+j)%l)); done ; x=${x//\.}; total+="*${#x}"; done
+echo "3B: ${total:2} = $((total))"

04.sh

@@ -0,0 +1,35 @@
+#! /usr/bin/env bash
+X='epEhbiH'; x=$X; ans=""
+IFS=$'\r\n\ '
+A=($(sed s/^$/XXX/ ${1:-4.txt}))
+for i in "${A[@]}" XXX; do
+    case $i in
+        ecl:*) x=${x/e};;
+        pid:*) x=${x/p};;
+        eyr:*) x=${x/E};;
+        hcl:*) x=${x/h};;
+        byr:*) x=${x/b};;
+        iyr:*) x=${x/i};;
+        hgt:*) x=${x/H};;
+        cid:*) : ;;
+        XXX) [ -z "$x" ] && ans+=1; x=$X;;
+    esac
+done
+echo "4A: ${#ans}"
+x=$X; ans=""
+for i in "${A[@]}" XXX; do
+    k=${i/*:}
+    case $i in
+        ecl:amb|ecl:blu|ecl:brn|ecl:gry|ecl:grn|ecl:hzl|ecl:oth) x=${x/e};;
+        pid:[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]) x=${x/p};;
+        eyr:[0-9][0-9][0-9][0-9]) [[ $k -ge 2020 && $k -le 2030 ]] && x=${x/E};;
+        hcl:\#[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]) x=${x/h};;
+        byr:[0-9][0-9][0-9][0-9]) [[ $k -ge 1920 && $k -le 2002 ]] && x=${x/b};;
+        iyr:[0-9][0-9][0-9][0-9]) [[ $k -ge 2010 && $k -le 2020 ]] && x=${x/i};;
+        hgt:[0-9][0-9]in) [[ ${k:0:2} -ge 59 && ${k:0:2} -le 76 ]] && x=${x/H};;
+        hgt:1[0-9][0-9]cm) [[ ${k:0:3} -ge 150 && ${k:0:3} -le 193 ]] && x=${x/H};;
+        cid:*) : ;;
+        XXX) [ -z "$x" ] && ans+=1; x=$X;;
+    esac
+done
+echo "4B: ${#ans}"

05.sh

@@ -0,0 +1,4 @@
+#! /usr/bin/env bash
+A=($(cat ${1:-5.txt} | tr 'FBLR' '0101' | sort -nr))
+echo "5A: $((2#$A))"
+j=; for i in ${A[@]}; do [[ ${j: -1} == ${i: -1} ]] && echo "5B: $((2#$j-1))=$((2#$i+1))"; j=$i; done

06.sh

@@ -0,0 +1,20 @@
+#! /usr/bin/env bash
+X=abcdefghijklmnopqrstuvwxyz; x=$X; j=-; a=0
+A=($(sed s/^$/X/ ${1:-6.txt}))
+while read -n1 i; do
+    [ "$i" = X ] && a=$((a+26-${#x})) && x=$X
+    x=${x/$i}
+done < <(echo ${A[*]} X)
+echo "6A: $a";
+
+x=""; a=0
+for line in "${A[@]}" X; do
+  if [[ "$line" = X ]]; then a=$((a+${#x})); x=X;
+  elif [ "$x" = X ]; then x=$line;
+  else
+      y=""; while read -n1 i; do [[ ${x/$i} != ${x} ]] && y+="$i"; done <<< $line
+    #  y="";for ((i=0;i<${#line};i++ )); do [[ ${x/${line:$i:1}} != ${x} ]] && y+="${line:$i:1}"; done
+      x=$y;
+  fi
+done
+echo "6B: $a"

07.sh

@@ -0,0 +1,20 @@
+#! /usr/bin/env bash
+IFS=$'\n'
+input=${1:-7.txt}
+NEW=($(grep " shiny gold" $input))
+FOUND=("${NEW[@]// bag*}")
+BAGS=("${NEW[@]}")
+while [ ${#FOUND[@]} != 0 ]; do
+    NEW=($(grep -F "${FOUND[*]}" $input | grep -v -F "${BAGS[*]}" | sort -u))
+    BAGS+=("${NEW[@]}")
+	FOUND=("${NEW[@]// bag*}")
+done
+echo "7A: ${#BAGS[@]}"
+r(){
+    local A=() a=${1// *} b=0 c=0
+    A=($(grep ^${1:2} $input | grep -o "[0-9] [a-z]* [a-z]*"))
+    for i in "${A[@]}"; do c=$(r $i); b=$((b+c)); done
+    echo $(($a+$a*$b))
+}
+total=$(r "1 shiny gold")
+echo "7B: $((total-1))" # minus 1 shiny gold bag

08.sh

@@ -0,0 +1,30 @@
+#! /usr/bin/env bash
+IFS=$'\n'
+A=($(< ${1:-8.txt}))
+B=("${A[@]}")
+solve8() {
+    acc=0; i=0;
+    while true; do
+        x=${A[i]}; y=${x/* }; A[i]+=DONE
+        case "$x" in
+            *DONE) return 1;;
+            acc*) acc=$((acc+($y))); i=$((i+1));;
+            jmp*) i=$((i+($y)));;
+            nop*) i=$((i+1)) ;;
+            *) echo "ERROR $i: $x"; return 1;;
+        esac
+        [[ $i -ge ${#A[@]} ]] && return 0
+    done
+}
+solve8 || echo "8A: $acc"
+
+A=("${B[@]}");
+for k in ${!A[@]}; do
+    if   [ ${A[k]:0:3} = nop ]; then A[k]=${A[k]/nop/jmp};
+    elif [ ${A[k]:0:3} = jmp ]; then A[k]=${A[k]/jmp/nop};
+    else continue; fi
+    solve8 && break
+    A=("${B[@]}")
+done
+[[ $i -ge ${#A[@]} ]] && echo "8B: $acc"
+

09.sh

@@ -0,0 +1,25 @@
+#! /usr/bin/env bash
+A=($(< ${1:-9.txt}))
+idx=(${!A[@]})
+for i in ${idx[@]:25}; do
+    b=:
+    for j in ${idx[@]:i-25:25-1}; do
+        [ ${A[j]} -ge ${A[i]} ] && continue
+        for k in ${idx[@]:j+1:i-j-1}; do
+            [[ $((${A[j]}+${A[k]})) == ${A[i]} ]] && b=break; $b
+        done
+        $b
+    done
+    [ "$b" = ":" ] && echo "9A: line $i = ${A[i]}" && break
+done
+
+k=0; j=0; sum=${A[j++]}
+while [ $sum != ${A[i]} ]; do
+    if [[ $sum -lt ${A[i]} ]]; then   sum=$((sum+A[j++]))
+    elif [[ $sum -gt ${A[i]} ]]; then sum=$((sum-A[k++]))
+    fi
+    [[ $j -ge $i ]] && echo NOT FOUND && break
+done
+IFS=$'\n'
+B=($(echo "${A[*]:k:j-k+1}" | sort -n))
+echo "9B: $j..$k = $((B+B[${#B[@]}-1]))"

10.sh

@@ -0,0 +1,10 @@
+#! /usr/bin/env bash
+A=($(sort -n 10.txt))
+DIFF=("" "" "" "1") # add 3 for the built-in
+j=0; for i in "${A[@]}"; do DIFF[$((i-j))]+=1;j=$i; done
+echo "10A: ${#DIFF[1]}*${#DIFF[3]}=$((${#DIFF[1]}*${#DIFF[3]}))"
+B=; j=0; for i in "${A[@]}"; do B+=$((i-j)); j=$i; done; B+=3;
+C=(${B//3/ }) # only works because there are nothing but 1s and 3s
+D=(0 1 2 4 7)
+total=1; for i in "${C[@]}"; do total+=*${D[${#i}]}; done
+echo "10B: ${total:2} = $((total))"

11.sh

@@ -0,0 +1,57 @@
+#! /usr/bin/env bash
+A=($(tr "L" "X" < ${1:-11.txt}))
+B=(.${A//?/.}.); for i in "${A[@]}"; do B+=(.$i.); done; B+=($B); C=("${B[@]}");
+J=$(seq 1 ${#A}); I=$(seq 1 ${#A[@]}); change=($I); round=0
+while [ ${#change} != 0 ]; do
+    change=(); l=
+    for i in $I; do
+        for j in $J; do
+            x=${B[i]:$j:1};
+            if [[ "$x" == "L" || "$x" == "X" ]]; then
+                s="${B[i-1]:$((j-1)):3}${B[i]:$((j-1)):1}${B[i]:$((j+1)):1}${B[i+1]:$((j-1)):3}";
+                s=${s//[L.]/}
+                if [[ ${#s} == 0 ]]; then x=X; elif [[ ${#s} -ge 4 ]]; then x=L; fi;  k=$((k+1))
+            fi;
+            l+=$x;
+        done
+        [ "${B[i]}" != .$l. ] && change+=($((i-1)) $i $((i+1)))
+        C[i]=.$l.; l=
+    done
+    B=("${C[@]}")
+    I=$(printf "%s\n" ${change[@]} |sort -u)
+    [ $((++round)) = 1 ] && B=("${C[@]//X/x}")
+    #[ $((round%10)) = 0 ] && echo "$round: $((${#change[@]}/3))"
+done
+ans="${B[*]}"; ans=${ans//[ L.]}
+echo "11A: ${#ans}"
+
+#A=($(< ${1:-11.txt}))
+B=(L${A//?/L}L); for i in "${A[@]}"; do B+=(L${i}L); done; B+=($B)
+J=$(seq ${#A}); I=$(seq ${#A[@]}); change=1; round=0
+while [ ${#change} != 0 ]; do
+    change=""; C=($B); l="";
+    for i in $I; do
+        for j in $J; do
+            x=${B[i]:$j:1};
+            [[ "$x" != "L" && "$x" != "X" ]] && l+=$x && continue
+            r=${B[i]:j+1}; r=${r//.}; R=${B[i]:0:j}; R=${R//.}
+            s=${R: -1}${r:0:1}
+            k=1; d=${B[i-k]:j-k:1}; while [ "$d" = '.' ]; do k=$((k+1)); d=${B[i-k]:j-k:1}; done; s+=$d
+            k=1; d=${B[i-k]:j:1};   while [ "$d" = '.' ]; do k=$((k+1)); d=${B[i-k]:j:1};   done; s+=$d
+            k=1; d=${B[i-k]:j+k:1}; while [ "$d" = '.' ]; do k=$((k+1)); d=${B[i-k]:j+k:1}; done; s+=$d
+            k=1; d=${B[i+k]:j-k:1}; while [ "$d" = '.' ]; do k=$((k+1)); d=${B[i+k]:j-k:1}; done; s+=$d
+            k=1; d=${B[i+k]:j:1};   while [ "$d" = '.' ]; do k=$((k+1)); d=${B[i+k]:j:1};   done; s+=$d
+            k=1; d=${B[i+k]:j+k:1}; while [ "$d" = '.' ]; do k=$((k+1)); d=${B[i+k]:j+k:1}; done; s+=$d
+            #[[ ${#s} == 8 ]] || echo "ERROR: ($s) $k = $i, $j"
+            s=${s//L}
+            if [[ ${#s} == 0 ]]; then l+=X; elif [[ ${#s} -ge 5 ]]; then l+=L; else l+=$x; fi
+        done
+        [ ${B[i]} != L${l}L ] && change+=1
+        C+=(L${l}L); l=
+    done
+    C+=($B); B=("${C[@]}");
+    [ $((++round)) = 1 ] && B=("${C[@]//X/x}")
+    #[ $((round%10)) = 0 ] && echo "$round: ${#change}"
+done
+sum="${B[*]}"; sum=${sum//[ L.]}
+echo "11B: ${#sum}"

12.sh

@@ -0,0 +1,31 @@
+#! /usr/bin/env bash
+A=($(< ${1:-12.txt}))
+H=1; X=0; Y=0; D=(N E S W)
+for i in "${A[@]}"; do
+    i=${i/F/${D[H]}}
+    case $i in
+        N*) Y+=+${i:1};;
+        S*) Y+=-${i:1};;
+        E*) X+=+${i:1};;
+        W*) X+=-${i:1};;
+        R*) H=$((((${i:1}/90)+H)%4));;
+        L*) H=$((((-${i:1}/90)+H)%4));;
+        *) echo ERROR $i; break;;
+    esac
+done
+echo "12A: $((X))+$((Y)) = $(((X<0?-X:X)+(Y<0?-Y:Y)))"
+H=1; X=10; Y=1; x=0; y=0
+for i in "${A[@]}"; do
+    case $i in
+        N*) Y+=+${i:1};;
+        S*) Y+=-${i:1};;
+        E*) X+=+${i:1};;
+        W*) X+=-${i:1};;
+        F*) x=$((x+${i:1}*(X))); y=$((y+${i:1}*(Y)));;
+        R90|L270)   TMP=$X; X=$((Y)); Y=$((-(TMP)));;
+        R270|L90)   TMP=$X; X=$((-(Y))); Y=$((TMP));;
+        R180|L180)  X=$((-(X)));Y=$((-(Y)));;
+        *) echo ERROR $i; break;;
+    esac
+done
+echo "12B: $((x))+$((y)) = $(((x<0?-x:x)+(y<0?-y:y)))"

13.sh

@@ -0,0 +1,19 @@
+#! /usr/bin/env bash
+IFS=$',\n'
+A=($(sed s/x,//g 13.txt))
+time=$A; min=($A 0)
+for i in "${A[@]:1}"; do
+    w=$((i-time%i))
+    [ $w -lt $min ] && min=($w $i)
+done
+echo "13A: $min*${min[1]} = $((min*${min[1]}))"
+
+A=($(tail -1 13.txt))
+for i in ${!A[@]}; do [ ${A[i]} != x ] && B[$i]=${A[i]} ; done
+N=0; step=1
+#echo "${!B[@]} => "${B[@]}""
+for i in "${!B[@]}"; do
+    while [ $(( (N+i) % ${B[$i]})) != 0 ]; do N=$((N+step)); done
+    step=$((step*${B[$i]}))
+done
+echo "13B: $N"

14.sh

@@ -0,0 +1,31 @@
+#! /usr/bin/env bash
+IFS=$'\n'
+A=($(< ${1:-14.txt}))
+for i in "${A[@]}"; do
+    case $i in
+        mask*) y=${i//*= }; o=$((2#${y//X/0})); z=$((2#${y//X/1}));;
+        mem*)  y=${i//*= }; eval ${i// =*}=$(((y&z)|o));;
+    esac
+done
+sum=$(echo ${mem[*]}| tr ' ' '+')
+echo "14A: $((sum))"
+
+r() {
+    local x=${2/X/0}
+    if [ "$x" = "$2" ]; then
+        mem2[$(($1|(2#$x)))]=$3
+    else
+        r $1 $x $3
+        r $1 ${2/X/1} $3
+    fi
+}
+
+IFS=$' []=\n\r'
+while read i y _ v; do
+   case "$i" in
+       mask*) o=$((2#${y//X/0})); m=${y//1/0}; z=$((~2#${m//X/1}));;
+       mem*)  r $(((y&z)|o)) $m $v;;
+   esac
+done < ${1:-14.txt}
+sum=$(echo ${mem2[*]}| tr ' ' '+')
+echo "14B: $((sum))"

15.sh

@@ -0,0 +1,33 @@
+#! /usr/bin/env bash
+A=(${*:-0 12 6 13 20 1 17})
+GIVEUP=${1:-10}
+#A=(0 3 6)
+unset B; i=0; l=""
+for a in ${A[@]}; do B[$a]=$((++i)); done
+while [ $i -lt 2020 ]; do
+    n=$((i-${l:-$i})); l=${B[$n]}; B[$n]=$((++i))
+done
+echo "15A: $n"
+
+sharded_swap() { # syntax: l=B[$1]; B[$1]=$2
+#   local x="B$(($1>>9))[$(($1&511))]"
+    local x="B$(($1>>6))[$(($1&63))]"
+    eval "l=\${$x}; $x=$2"
+}
+
+i=0; for a in ${A[@]}; do sharded_swap $a $((++i)); done;  l="";
+while [[ $i -lt 30000000 && $SECONDS -le $GIVEUP ]]; do
+    n=$((i-${l:-$i})); sharded_swap $n $((++i))
+    [ $((i%100000)) = 0 ] && echo "$i: $SECONDS sec"
+done
+if [ $i = 30000000 ]; then
+    echo "15B: $n"
+else
+    # The code above would take days or weeks to run. Switch to awk
+    echo "$n Gave up after $SECONDS seconds after round ${i}"
+    printf "%s\n" ${A[@]} | awk '{B[$0]=++i;}
+END {
+    while (i<30000000) { n=l?(i-l):0; l=B[n]; B[n]=++i; }
+    print "15B(awk):", n;
+}'
+fi