計算をして遊ぶゲーム miniは最小限の実装

the-number.sh

#!/usr/bin/env bash

#-- Initilize script --#
set -eu

# shellcheck source=/dev/null
source /dev/stdin < <(curl -sL "https://github.com/Hayao0819/FasBashLib/releases/download/v0.2.1/fasbashlib.sh")

#-- Define --#
AvailableNumbers=()
NumberOfStart=5
TargetNumber=10

#-- Functions --#
HelpMessage(){ echo "There is nothing"; }

ParseExpr(){ sed -E "s|([0-9]+)|\1\n|g" <<< "${*}" | sed -E -e "s|(\+)|\1\n|g" -e "s|(\-)|\1\n|g" -e "s|(\*)|\1\n|g" -e "s|(\/)|\1\n|g" | grep -v "^$"; }

# Loop [回数] [コマンド]
Loop(){
    local _T="$1"
    shift 1 || return 1
    ForEach "$@" < <(yes "" | head -n "$_T")
}

# ゲームのメイン関数
Game.Main(){
    local InputExpr

    Game.Start
    while true; do
        ! Game.Ask || break
    done
    
    Game.Result
}

Game.Start(){
    echo "四則演算をして最終的に\"$TargetNumber\"を作ろう"

    # NumberOfStart回、0~9で乱数を取得してAvailableNumbersに追加
    # shellcheck disable=SC2016
    Loop "$NumberOfStart" eval 'ArrayAppend AvailableNumbers <<< $(( RANDOM % 10 ))'
    
}

Game.Result(){
    echo "最終的に残ったのは${AvailableNumbers[0]}"
    if [[ "${AvailableNumbers[0]}" = "${TargetNumber}" ]]; then
        echo "クリア！"
    else
        echo "失敗！"
    fi
    exit 0
}

Game.Ask(){
    local UsedNumber=()

    echo "今回使える数字は以下のとおりです"
    PrintArray "${AvailableNumbers[@]}" | ForEach echo "・ {}"

    echo -n "式を入力してください: "
    read -r InputExpr
    echo

    # 指定された式の数字が使えるかどうかを確認
    local Num
    while read -r Num; do
        if ! PrintArray "${AvailableNumbers[@]}" | grep -qx "$Num"; then
            echo "${Num}は使えません!"
            AvailableNumbers+=("${UsedNumber[@]}")
            unset UsedNumber
            return 1
        else
            UsedNumber+=("$Num")
            readarray -t AvailableNumbers < <(
                local i unseted=false
                for i in "${AvailableNumbers[@]}"; do
                    if [[ "$i" != "${Num}" ]] || [[ "$unseted" = true ]]; then
                        echo "$i"
                    else
                        unseted=true
                    fi
                done
                unset unseted i
            )
        fi
    done < <(ParseExpr "$InputExpr" | grep -E "[0-9]+")
    AvailableNumbers+=("$(( "$InputExpr" ))") 2> /dev/null

    # もし数字が1つだけならゲームを終了する
    if [[ "${#AvailableNumbers[@]}" = 1 ]]; then
        return 0
    else
        return 2
    fi

}

#-- Parse args --#
ParseArg LONG="help" SHORT="h" -- "$@"
eval set -- "${OPTRET[*]}"
while true; do
    case "$1" in
        "--help" | "-h")
            HelpMessage
            shift 1
            ;;
        "--")
            break
            shift 1
            ;;
    esac
done

Game.Main

Fascodeで晒した時のバージョン
https://gist.github.com/Hayao0819/caad8ef3952bdfef7287ef8c5d71e03c/0a31a4716347d07ca352d71f279d49709d110995

D言語実装
https://gist.github.com/yamader/119c342c444b0fc2f9cfd175d6cea340

Nim実装
https://gist.github.com/mk-419/c723674882bd12b650d22282a4677582

Python実装
https://gist.github.com/mk-419/2867304154a4b16550867d9b2a41ed51

Java実装
https://gist.github.com/sunset0916/fdfacb6e3a2a5f78b0d2760c41e785ca