challenge-151/abigail/bash/ch-2.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/bin/sh

#
# See https://theweeklychallenge.org/blog/perl-weekly-challenge-151
#

#
# Run as: bash ch-2.sh < input-file
#

set -f

while read -a h
do    h[${#h[@]}]=0
      h[${#h[@]}]=0
      for  ((i = ${#h[@]} - 3; i >= 2; i --))
      do   ((val1 = ${h[$i]} + ${h[$((i + 2))]}))
           ((val2 = ${h[$((i + 1))]}))
           h[$i]=$((val1 < val2 ? val2 : val1))
      done

      echo $((${h[0]} + ${h[2]}))
done