xref: /freebsd/contrib/one-true-awk/testdir/t.incr2 (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner Losh{ s = 0
2*23f24377SWarner Losh  for (i=1; i <= NF; )
3*23f24377SWarner Losh	if ($(i) ~ /^[0-9]+$/)
4*23f24377SWarner Losh		s += $(i++)
5*23f24377SWarner Losh	else
6*23f24377SWarner Losh		i++
7*23f24377SWarner Losh  print s
8*23f24377SWarner Losh}
9