[Usaco2002 Open]Wiggle Numbers摆动数

[Usaco2002 Open]Wiggle Numbers摆动数

时间限制: 1 Sec 内存限制: 128 MB

题目描述

摇摆数是像下面的数：3748，67，869，32435465768，它们每个数每位数码的变化是：上升，下降，上升，下降，…，或者：下降，上升，下降，上升，…，上面4个数表示如下：3 < 7 > 4 < 8 and 3 > 2 < 4 > 3 < 5 > 4 < 6 > 5 < 7 > 6 < 8。特别规定一位整数也是一个摇摆数。输入一个长度不超过75位的数，计算并输出从该数的第1个数码开始，可以形成摇摆数的长度。

输入

一行，一个长度不超过75位的数

输出

1个整数，从第1个数码开始形成的摇摆数的长度

样例输入

3748

样例输出

4

var
 a:string;
 i,j,k,ans:longint;
begin
 readln(a);
 for i