Alexa Amundson
78fbe80f2a
bin/ 230 CLI tools (ask-*, br-*, agent-*, roadid, carpool) scripts/ 99 automation scripts fleet/ Node configs and deployment workers/ Cloudflare Worker sources (roadpay, road-search, squad webhooks) roadc/ RoadC programming language roadnet/ Mesh network (5 APs, WireGuard) operator/ Memory system scripts config/ System configs dotfiles/ Shell configs docs/ Documentation BlackRoad OS — Pave Tomorrow. RoadChain-SHA2048: d1a24f55318d338b RoadChain-Identity: alexa@sovereign RoadChain-Full: d1a24f55318d338b24b60bad7be39286379c76ae5470817482100cb0ddbbcb97e147d07ac7243da0a9f0363e4e5c833d612b9c0df3a3cd20802465420278ef74875a5b77f55af6fe42a931b8b635b3d0d0b6bde9abf33dc42eea52bc03c951406d8cbe49f1a3d29b26a94dade05e9477f34a7d4d4c6ec4005c3c2ac54e73a68440c512c8e83fd9b1fe234750b898ef8f4032c23db173961fe225e67a0432b5293a9714f76c5c57ed5fdf35b9fb40fd73c03ebf88b7253c6a0575f5afb6a6b49b3bda310602fb1ef676859962dad2aebbb2875814b30eee0a8ba195e482d4cbc91d8819e7f38f6db53e8063401649c77bb994371473cabfb917fb53e8cbe73d60
62 lines
1.4 KiB
Bash
Executable File
62 lines
1.4 KiB
Bash
Executable File
#!/bin/bash
|
|
# BR-Life - Conway's Game of Life
|
|
clear
|
|
trap 'printf "\033[?25h\033[0m"; clear; exit' INT TERM EXIT
|
|
printf '\033[?25l'
|
|
W=$(( $(tput cols) / 2 )) H=$(( $(tput lines) - 2 ))
|
|
(( W > 60 )) && W=60
|
|
(( H > 30 )) && H=30
|
|
declare -A grid next
|
|
GEN=0 POP=0
|
|
|
|
# Random seed
|
|
for ((y=0;y<H;y++)); do
|
|
for ((x=0;x<W;x++)); do
|
|
grid[$y,$x]=$(( RANDOM % 4 == 0 ? 1 : 0 ))
|
|
done
|
|
done
|
|
|
|
while true; do
|
|
POP=0
|
|
output=""
|
|
for ((y=0;y<H;y++)); do
|
|
line=""
|
|
for ((x=0;x<W;x++)); do
|
|
# Count neighbors
|
|
n=0
|
|
for dy in -1 0 1; do
|
|
for dx in -1 0 1; do
|
|
(( dy == 0 && dx == 0 )) && continue
|
|
ny=$(( (y+dy+H) % H )) nx=$(( (x+dx+W) % W ))
|
|
(( n += grid[$ny,$nx] ))
|
|
done
|
|
done
|
|
# Rules
|
|
if (( grid[$y,$x] == 1 )); then
|
|
(( n == 2 || n == 3 )) && next[$y,$x]=1 || next[$y,$x]=0
|
|
else
|
|
(( n == 3 )) && next[$y,$x]=1 || next[$y,$x]=0
|
|
fi
|
|
if (( next[$y,$x] )); then
|
|
line+="\033[38;5;82m██"
|
|
((POP++))
|
|
else
|
|
line+=" "
|
|
fi
|
|
done
|
|
output+="$line\033[0m\n"
|
|
done
|
|
|
|
printf '\033[H%b' "$output"
|
|
printf '\033[38;5;205m🧬 BR-Life \033[38;5;69mGen:%d Pop:%d [q=quit]\033[0m' "$GEN" "$POP"
|
|
|
|
# Copy next to grid
|
|
for ((y=0;y<H;y++)); do
|
|
for ((x=0;x<W;x++)); do
|
|
grid[$y,$x]=${next[$y,$x]}
|
|
done
|
|
done
|
|
((GEN++))
|
|
read -rsn1 -t 0.1 K && [[ "$K" == "q" ]] && exit
|
|
done
|