All pastes #521952 Raw Edit

shell Korn

public text v1 · immutable
#521952 ·published 2007-05-30 09:43 UTC
rendered paste body
#!/bin/ksh
echo -n "Introdueix quina taula vols executar: "
set t = ${<}
set i = 0
set error = 0
while ( $i < 11 )
	echo -n "$t - $i = "
	set n = ${<}
	set prov = $t-$i
	if ( $n == $prov ) then
		echo OK
	else
		echo error
		set error=$error+1
	endif
	set i = $i+1
end
echo "Has fet $error errors"