Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
...
'543212' -> too many consec: '54321'
'2123454' -> too many consec: '12345'
'4543212' -> too many consec: '54321'