Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Pig Latin

by davisagli (Scribe)
on Jun 19, 2001 at 18:41 UTC ( #89649=note: print w/replies, xml ) Need Help??

in reply to Pig Latin

I had some fun with this. My shortest fully-functional attempt is this 60-character regexp:


with these features:

  • Handles multiple consonants at start of word (and handles 'qu' correctly)
  • Correctly handles y-related idiosyncrasies: yummy becomes ummyyay, but yttrium becomes yttriumway and rhythm becomes ythmrhay
  • Handles numbers correctly (42 doesn't become 42ay)
  • Counts apostrophe as part of word, so "don't" becomes "on'tday" (and handles other punctuation correctly)

Note that if we ignore two words (yttrium and ytterbium), we can safely bring it down to 52 chars:


And if we decide to switch to the dialect of pig latin that doesn't add 'w' on vowel-words, it's down to 44:


If I combine that with perlmonkey's attempt (losing a bit of functionality in the process, although it still works pretty well) I can reach 36:


Also note that my (un-golfed) attempt at a pig latin converter in Visual Basic took up almost 3500 characters (!) without handling nearly all of the exceptions mentioned here. This is (one of the many reasons) why I love Perl!

Thanks to everyone for their previous attempts, which helped me quite a bit. Comments are welcome.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://89649]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2018-03-18 18:55 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (230 votes). Check out past polls.