Mia/psh-fractional
mirror of https://dicksdeathabove.xyz/~mia/psh-fractional synced 2024-09-16 15:09:08 +00:00

fix a bug with decimal placement when $1 < $2; also fix decimal point count

Browse source
This commit is contained in:
Mia T. Rain 2022-02-14 10:32:47 -05:00
parent 655ab2c2eb
commit a2c3a60409
Signed by: Mia
GPG key ID: 5F40D66F94DECFE8
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
division/div
View file

@ -11,7 +11,7 @@ fd() { # return first digit of $1
echo "$x" echo "$x"
} }
ld() { # $1/$2 ld() { # $1/$2
di="$1"; div="$2"; count="$3"; : $((count-=1)) di="$1"; div="$2"; count="$3"
case "$div" in case "$div" in
*'.'*) *'.'*)
sp=0; sdiv="${div%%.*}"; IFS="."; set -- ${div}; div="${1}${2}"; unset IFS sp=0; sdiv="${div%%.*}"; IFS="."; set -- ${div}; div="${1}${2}"; unset IFS
@ -44,7 +44,7 @@ ld() { # $1/$2
done done
unset IFS o; for i in $(s 1 $count); do unset IFS o; for i in $(s 1 $count); do
fd="$(fd $di)" # fd is needed later fd="$(fd $di)" # fd is needed later
#echo "$fd" #echo "$fd"
[ "$i" -gt 1 ] && { [ "$i" -gt 1 ] && {
fd="${sd}${fd}" fd="${sd}${fd}"
#echo "$fd" #echo "$fd"
@ -54,19 +54,23 @@ ld() { # $1/$2
# now pull down # redefine $di # now pull down # redefine $di
di="${di#?}" # $fd$sd di="${di#?}" # $fd$sd
done done
#echo "$fd $di $div"
until [ "${o#0}" = "$o" ]; do until [ "${o#0}" = "$o" ]; do
o="${o#0}" o="${o#0}"
done done
[ "$dp" -gt 0 ] && { [ "$dp" -gt 0 ] && {
[ "$t" ] || : $((dp+=1)) [ "$t" ] || : $((dp+=1))
[ "$sp" -o "$t" ] && : $((dp-=1)) [ "$sp" -o "$t" ] && : $((dp-=1))
[ "$((di/div))" -eq 0 ] && o="0$o" [ "$((di/div))" -eq 0 ] && {
o="0$o"
}
do="$o"; until [ "${#do}" -eq "$dp" ]; do do="$o"; until [ "${#do}" -eq "$dp" ]; do
do="${do%?}" do="${do%?}"
done done
o="$do.${o#$do}" [ "$1" -lt "$2" ] && do="${do%?}"
o="${do:-0}.${o#$do}"
} }
until [ "${o#0}" = "$o" ]; do [ "$1" -lt "$2" ] || until [ "${o#0}" = "$o" ]; do
o="${o#0}" o="${o#0}"
done done
echo "$o" echo "$o"