yet another 22: #!perl -p $_ x=" $_"=~reverse
> -----Original Message----- > From: Usenet News [mailto:[EMAIL PROTECTED]]On Behalf Of Ton Hospel > Sent: Sunday, April 14, 2002 8:49 PM > To: [EMAIL PROTECTED] > Subject: Re: Blast from the past: "Triple Challenge Tight Coding" > > > In article > <[EMAIL PROTECTED]>, > [EMAIL PROTECTED] writes: > > En op 14 april 2002 sprak /-\ndrew: > >> While researching tpr02, I stumbled across perhaps the earliest > >> example of an organised golf competition: > > > > > http://groups.google.com/groups?hl=en&selm=37DD324C.A984C7A9%40wins.uva.nl > > > http://groups.google.com/groups?hl=en&selm=37DE7E5D.1C172E3E%40wins.uva.nl > > > > Woooooo, I'm feeling heady, surreal and a wee bit ghoulish, > > playing golf against ghosts from 3 years past. > > > > Hole 2, find palindromes, was won by Steven Alexander. > > > > -n print if"\n$_"eq reverse."\n" 32 Steven de Rooij > > -ln print if$_ eq reverse 25 Gareth Rees > > -ln $_ eq reverse&&print 24 Abigail > > -ln reverse eq$_&&print 23 Steven Alexander > > -ln reverse=~$_&&print 22 /-\ndrew (boo!) > > > > I think using =~ above is sound. If you think it unsound, > > please provide a counter-example word on which it fails. > > > Looks good. > here's another 22: > -p $_ x=reverse=~/$_/x > >
