Shell Programming and Scripting

00
02
00
00
06
00
00
00
05
00
04
01
06

#! /usr/bin/ksh

exec < data
lineno=0

#
# read input line and break it into data items in an array

while read line ; do
        ((lineno=lineno+1))
        oIFS="$IFS"
        IFS=,
        set -A fields  $line
        IFS="$oIFS"

#
# we want 27 data items

        if ((${#fields[*]} != 27)) ; then
                echo error line $lineno has ${#fields[*]} data items:
                echo $line
                echo
                continue
        fi

#
# scan the 27 data items to make sure they are numbers
# and remove leading zeros while we are at it
        nitem=0
        error=0
        while ((nitem < 27)) ; do
                if [[ ${fields[nitem]} != [0-9][0-9] ]] ; then
                        echo error line $lineno has non numeric data:
                        echo $line
                        echo
                        error=1
                        break
                fi
                if [[ ${fields[nitem]} = 0[0-9] ]] ; then
                        fields[nitem]=" ${fields[nitem]#0}"
                fi
                ((nitem=nitem+1))
        done
        ((error)) && continue
#
#  the 27 numbers are really 3 tickets

        nitem=0
        while ((nitem < 9)) ; do
                ticket1[nitem]="${fields[nitem]}"
                ticket2[nitem]="${fields[nitem+9]}"
                ticket3[nitem]="${fields[nitem+18]}"
                ((nitem=nitem+1))
        done

#
# each ticket must have exactly 5 non-zeros and while we check that,
# note each column with a non-zero
        nonzero1=0
        nonzero2=0
        nonzero3=0
        nitem=0
        set -A cols 0 0 0 0 0 0 0 0 0
        while ((nitem < 9)) ; do
                ((${ticket1[nitem]})) && ((cols[nitem]=1)) && ((nonzero1=nonzero1+1))
                ((${ticket2[nitem]})) && ((cols[nitem]=1)) && ((nonzero2=nonzero2+1))
                ((${ticket3[nitem]})) && ((cols[nitem]=1)) && ((nonzero3=nonzero3+1))
                ((nitem=nitem+1))
        done

        if ((nonzero1 != 5 || nonzero2 != 5 || nonzero3 != 5)) ; then
                echo error line $lineno does not have 3 tickets each with 5 non-zeros: $nonzero1 $nonzero2 $nonzero3
                echo $line
                echo
                break
        fi

#
# now scan the cols array to be sure we had a non-zero in each column
        nitem=0
        error=0
        while ((nitem < 9)) ; do
                if [[ ${cols[item]} = 0 ]] ; then
                        echo error line $lineno does not have a ticket with a nonzero in column ${nitem}:
                        echo $line
                        echo
                        error=1
                        break
                fi
                ((nitem=nitem+1))
        done
        ((error)) && continue

#
# check for ascending columns

        nitem=0
        error=0
        set -A cols 0 0 0 0 0 0 0 0 0
        while ((nitem < 9)) ; do
                if ((${ticket1[nitem]})) ; then
                        cols[nitem]=${ticket1[nitem]}
                fi
                if ((${ticket2[nitem]})) ; then
                        ((${ticket2[nitem]} < ${cols[nitem]})) && error=1
                        cols[nitem]=${ticket2[nitem]}
                fi
                if ((${ticket3[nitem]})) ; then
                        ((${ticket3[nitem]} < ${cols[nitem]})) && error=1
                fi
                ((nitem=nitem+1))
        done
        if ((error)) ; then
                echo error line $lineno does not have ascending columns:
                echo $line
                echo "${ticket1[*]}"
                echo "${ticket2[*]}"
                echo "${ticket3[*]}"
                echo
        fi

done
exit 0

#
# check for ascending columns

        nitem=0
        error=0
        set -A cols 0 0 0 0 0 0 0 0 0
        while ((nitem < 9)) ; do
                if ((${ticket1[nitem]})) ; then
                        cols[nitem]=${ticket1[nitem]}
                fi
                if ((${ticket2[nitem]})) ; then
                        ((${ticket2[nitem]} < ${cols[nitem]})) && error=1
                        cols[nitem]=${ticket2[nitem]}
                fi
                if ((${ticket3[nitem]})) ; then
                        ((${ticket3[nitem]} < ${cols[nitem]})) && error=1
                fi
                ((nitem=nitem+1))
        done
        if ((error)) ; then
                echo error line $lineno does not have ascending columns:
                echo $line
                echo "${ticket1[*]}"
                echo "${ticket2[*]}"
                echo "${ticket3[*]}"
                echo
        fi