Conway's Game of Life in POSIX Shell

CGoL.sh

#!/bin/sh

xs=80 ys=35
ORIGIN=$(clear) LF='
'

xorshift32=$(date +%s)
xorshift32() {
  set -- "$1" "$xorshift32"
  set -- "$1" $(( $2 ^ (($2 << 13) & 0xFFFFFFFF) ))
  set -- "$1" $(( $2 ^ ($2 >> 17) ))
  set -- "$1" $(( $2 ^ (($2 << 5) & 0xFFFFFFFF) ))
  export $1=$(( (xorshift32 = $2) > 0 ? $2 : -1 * $2))
}

j=$ys; while [ $j != 0 ]; do
  i=$xs; while [ $i != 0 ]; do
    xorshift32 r
    export c$i$j=$((r%2))
    i=$((i-1))
  done; j=$((j-1))
done

clear
while true; do
  buf=$ORIGIN
  j=$ys; while [ $j != 0 ]; do
    i=$xs; while [ $i != 0 ]; do
      case $((c$i$j)) in 1) buf="$buf*" ;; *) buf="$buf " ;; esac
      i=$((i-1))
    done; buf="$buf$LF" j=$((j-1))
  done
  echo "${buf%$LF}"

  j=$ys; while [ $j != 0 ]; do
    i=$xs; while [ $i != 0 ]; do
      t=0
      for l in -1 0 1; do
        for k in -1 0 1; do
          tx=$(((i+k)%xs)); case $tx in -1) tx=$((tx+xs)) ;; esac
          ty=$(((j+l)%ys)); case $ty in -1) ty=$((ty+ys)) ;; esac
          t0=$((c$tx$ty)); t=$((t+t0))
          case $k in 0) case $l in 0) t=$((t-t0)) ;; esac ;; esac
        done
      done
      case $((c$i$j)) in
        1) case $t in 2|3) export cn$i$j=1 ;; *) export cn$i$j=0 ;; esac ;;
        *) case $t in 3)   export cn$i$j=1 ;; *) export cn$i$j=0 ;; esac ;;
      esac
      i=$((i-1))
    done; j=$((j-1))
  done

  j=$ys; while [ $j != 0 ]; do
    i=$xs; while [ $i != 0 ]; do
      export c$i$j=$((cn$i$j)) i=$((i-1))
    done; j=$((j-1))
  done
done

よくよく考えたら dd 使うよりも head -c の方が良さそうだから書き換えたら、 /dev/random からの読み込みでも問題なかった。

追記 head -c は POSIX Issue 7 では標準化されていませんでした。Issue 8 では標準化されます。

Revision 10、フォーク元に入れ替える
https://gist.github.com/ko1nksm/63656db220e17734f2bec1e3a75c34df/0f28e247b536b72c87d53ddc62a6e25c0eb0b604

乱数の生成を xorshift32 に置き換えてみた。
シード値（現在はただのUNIXタイム）をどうするかは検討が必要かもしれない。