All scripts read input from files

Minor cleanup in 15

Author: einarjon

10.sh

@@ -1,5 +1,5 @@
 #! /usr/bin/env bash
-A=($(sort -n 10.txt))
+A=($(sort -n ${1:-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]}))"

13.sh

@@ -1,14 +1,15 @@
 #! /usr/bin/env bash
 IFS=$',\n'
-A=($(sed s/x,//g 13.txt))
+input=${1:-13.txt}
+A=($(sed s/x,//g $input))
 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))
+A=($(tail -1 $input))
 for i in ${!A[@]}; do [ ${A[i]} != x ] && B[$i]=${A[i]} ; done
 N=0; step=1
 #echo "${!B[@]} => "${B[@]}""

15.sh

@@ -1,8 +1,8 @@
 #! /usr/bin/env bash
-A=(${*:-0 12 6 13 20 1 17})
-GIVEUP=${1:-10}
+A=($(<${1:-15.txt}))
+GIVEUP=${2:-10}
 #A=(0 3 6)
-unset B; i=0; l=""
+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))
@@ -14,8 +14,8 @@ sharded_swap() { # syntax: l=B[$1]; B[$1]=$2
     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="";
+SECONDS=0
+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"
@@ -24,7 +24,7 @@ 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}"
+    echo "15B(round $i): $n (Gave up after $SECONDS seconds)"
     printf "%s\n" ${A[@]} | awk '{B[$0]=++i;}
 END {
     while (i<30000000) { n=l?(i-l):0; l=B[n]; B[n]=++i; }

23.sh

@@ -1,5 +1,5 @@
 #! /usr/bin/env bash
-A=${1:-167248359}
+A=$(<${1:-23.txt})
 i=0
 for k in {0..99}; do
 c=${A:i:1}
@@ -13,7 +13,7 @@ while [ ${A:i:1} != $c ]; do [ $((++i)) = 9 ] && i=0; done
 [ $((++i)) = 9 ] && i=0
 done
 echo "23A: ${A/*1}${A/1*}"
-A=167248359
+A=$(<${1:-23.txt})
 #A=389125467
 printf $A | sed -e "s/\(.\)/\1\n/g" | awk '
 { if(last){ C[last]=$0 }else{ cup=$0 }; last=$0; ++i; }