47 lines
672 B
Awk
47 lines
672 B
Awk
#!/usr/bin/env awk
|
|
|
|
BEGIN {
|
|
safe = 0
|
|
}
|
|
{
|
|
if ($2 > $1) {
|
|
order = 0
|
|
} else {
|
|
order = 1
|
|
}
|
|
skip = 0
|
|
for (i = 1; i < NF; i++) {
|
|
j = i + 1
|
|
k = i + 2
|
|
if ( $i < $j && order == 1 ) {
|
|
if ( $i < $k && order == 1 ) {
|
|
next
|
|
}
|
|
} else if ( $i > $j && order == 0) {
|
|
if ( $i > $k && order == 0 ) {
|
|
next
|
|
}
|
|
}
|
|
if ( $i < $j ) {
|
|
diff = $j - $i
|
|
} else {
|
|
diff = $i - $j
|
|
}
|
|
if ( $i < $k ) {
|
|
diff2 = $k - $i
|
|
} else {
|
|
diff2 = $i - $k
|
|
}
|
|
if (diff > 3 || diff < 1) {
|
|
if (diff2 > 3 || diff2 < 1) {
|
|
next
|
|
}
|
|
}
|
|
|
|
}
|
|
safe += 1
|
|
}
|
|
END {
|
|
print safe
|
|
}
|