パソコン甲子園をgawkで解く

パソコン甲子園の問題を解いております。
まずは2010年予選問題１です。

gawkで解いております。
プログラミングの練習がてらぼちぼちの載せていきます

# 1.awk

# usage gawk -f 1.awk 1.txt

# Done

{

	w = $0

	money = 0

	if (w == -1){

		exit

	}

	if (w == 0){

		money = 1150

	}
	while (w > 0) {

		if ((w % 10) > 0){

			s = w % 10

		}else{

			s = 10

		}

		if (w > 30){

			money += 160 * s 

			w -= s 

		} else if (w > 20) {

			money += 140 * s

			w -= s 

		} else if (w > 10) {

			money += 125 * s 

			w -= s

		} else {

			money += 1150

			w -= s

		}

	}

	print 4280 - money

}