Thursday, March 18, 2010

Проверка палиндрома на Perl

Делается так:
perl -ne 'print if /^(\w+).?(??{reverse $1})$/i'
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)