flipCoinSimulator.sh

#!/bin/bash -x

#ASSUMPTIONS
#1=HEADS
#0=TAILS

#DICTIONARY
declare -a singlet=( [0]=0 [1]=0 )
declare -a doublet=( [00]=0 [01]=0 [11]=0 [10]=0 )
declare -a triplet=( [000]=0 [001]=0 [011]=0 [111]=0 [101]=0 [110]=0 [100]=0 [010]=0 )

#VARIABLES
multiple=0

read -p "Enter number:" multiple

function getSingletRandom(){
	local randNumber=$((RANDOM%2))
	echo $randNumber
}

function getDoubletRandom(){
	local r1=$((RANDOM%2))
	local r2=$((RANDOM%2))
	local randNumber="${r1}${r2}"
	echo $randNumber
}

function getTripletRandom(){
	local r1=$((RANDOM%2))
	local r2=$((RANDOM%2))
	local r3=$((RANDOM%2))
	local randNumber="${r1}${r2}${r3}"
	echo $randNumber
}
while (( i<$multiple ))
do
	r=$(getSingletRandom)
	case $r in
		1)
		singlet[$r]=$(( ${singlet[$r]}+1 ))
		;;
		0)
		singlet[$r]=$(( ${singlet[$r]}+1 ))
		;;
		*)
		echo "Nothing"
		;;
	esac
	r=$(getDoubletRandom)
	case $r in
		00)
		doublet[$r]=$(( ${doublet[$r]}+1 ))
		;;
		01)
		doublet[$r]=$(( ${doublet[$r]}+1 ))
		;;
		10)
		doublet[$r]=$(( ${doublet[$r]}+1 ))
		;;
		11)
		doublet[$r]=$(( ${doublet[$r]}+1 ))
		;;
		*)
		echo "Nothing"
		;;
	esac
	r=$(getTripletRandom)
	case $r in
		000)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		001)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		011)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		111)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		100)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		110)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		010)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		101)
		triplet[$r]=$(( ${triplet[$r]}+1 ))
		;;
		*)
		echo "Nothing"
		;;
	esac
	(( i++ ))
done

#singlet
res=`echo "scale=3; ${singlet[1]}*100/$multiple" | bc`
echo "HEADS %:" $res
res=`echo "scale=3; ${singlet[0]}*100/$multiple" | bc`
echo "TAILS %:" $res

#doublet
res=`echo "scale=3; ${doublet[00]}*100/$multiple" | bc`
echo "TT %:" $res

res=`echo "scale=3; ${doublet[11]}*100/$multiple" | bc`
echo "HH %:" $res

res=`echo "scale=3; ${doublet[10]}*100/$multiple" | bc`
echo "HT %:" $res

res=`echo "scale=3; ${doublet[01]}*100/$multiple" | bc`
echo "TH %:" $res

#triplet
res=`echo "scale=3; ${triplet[111]}*100/$multiple" | bc`
echo "HHH %:" $res

res=`echo "scale=3; ${triplet[000]}*100/$multiple" | bc`
echo "TTT %:" $res

res=`echo "scale=3; ${triplet[100]}*100/$multiple" | bc`
echo "HTT %:" $res

res=`echo "scale=3; ${triplet[110]}*100/$multiple" | bc`
echo "HHT %:" $res

res=`echo "scale=3; ${triplet[101]}*100/$multiple" | bc`
echo "HTH %:" $res

res=`echo "scale=3; ${triplet[010]}*100/$multiple" | bc`
echo "THT %:" $res

res=`echo "scale=3; ${triplet[011]}*100/$multiple" | bc`
echo "THH %:" $res

res=`echo "scale=3; ${triplet[001]}*100/$multiple" | bc`
echo "TTH %:" $res

#function for asc sorting
function ascSort(){
	dict=("$@")
	dict=($(echo ${dict[*]}| tr " " "\n" | sort -n))
	echo "Sorted:" ${dict[@]}
	len=$(( ${#dict[@]} ))
	echo "MaxVal:" ${dict[(len-1)]}
	return ${dict[(len-1)]}
}

function getKey(){ #getKey [dictionary] [maxVal]
	local dCommon=("$@")
	local x=$2
	for key in ${!dCommon[@]}
	do
		if (( ${dCommon[key]} == $x ))
		then
			return $key
			break
		fi
	done
}

sArr=${singlet[@]}
echo "Singlet:"
ascSort ${sArr[@]}
sMaxVal=$?
getKey ${singlet[@]} $sMaxVal
if (( $?==1 ))
then
	echo "WINNING INDEX: H"
else
	echo "WINNING INDEX: T"
fi


dArr=${doublet[@]}
echo "Doublet:"
ascSort ${dArr[@]}
dMax=$?
getKey ${doublet[@]} $dMax
if (( $?==11 ))
then
	echo "WINNING INDEX: HH"
elif (( $?==10 ))
then
	echo "WINNING INDEX: HT"
elif (( $?==01 ))
then
	echo "WINNING INDEX: TH"
else
	echo "WINNING INDEX:TT"
fi

tArr=${triplet[@]}
echo "Triplet:"
ascSort ${tArr[@]}
tMax=$?
getKey ${triplet[@]} $tMax
if (( $?==000 ))
then
	echo "WINNING INDEX: TTT"
elif (( $?==001 ))
then
	echo "WINNING INDEX: TTH"
elif (( $?==011 ))
then
	echo "WINNING INDEX: THH"
elif (( $?==111 ))
then
	echo "WINNING INDEX: HHH"
elif (( $?==101 ))
then
	echo "WINNING INDEX: HTH"
elif (( $?==010 ))
then
	echo "WINNING INDEX: THT"
elif (( $?==110 ))
then
	echo "WINNING INDEX: HHT"
else
	echo "WINNING INDEX: HTT"
fi