Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

The Doom of the Noldor

by Erudil (Prior)
on Jun 13, 2000 at 16:21 UTC ( #17878=poem: print w/ replies, xml ) Need Help??

#!/usr/bin/perl # # The Doom of the Noldor / The Prophecy of the North # J. R. R. Tolkien - Quenta Silmarillion # # Tears unnumbered ye shall shed; # and the Valar will fence Valinor against you, # and shut you out, # so that not even the echo of your lamentation # shall pass over the mountains. # # On the House of Feanor the wrath of the Valar lieth # from the West unto the uttermost East, # and upon all that will follow them # it shall be laid also. # $_= 'The Doom of the Noldor' or 'The Prophecy of the North'; while( /Doom/ ) { shed("tears "); do { $Valar{'fence_of_Valinor'}++ and $shut_out; } until not( $echo_of_lamentation > $mountains ); for( $West..$uttermost_East ) { map{$_ = $Valar{'wrath'}} (@House_of_Feanor, @followers); } } sub shed{print shift}

Comment on The Doom of the Noldor
Download Code
RE: The Doom of the Noldor
by Bourgeois_Rage (Beadle) on Jun 14, 2000 at 18:56 UTC
    Wow,
    I can't try this one on this computer, but I'll be sure to give it a whirl later. I just thought I'd tip a hat to a fellow Tolkien lover!
    -Rage
Re: The Doom of the Noldor
by Scott7477 (Chaplain) on Aug 05, 2006 at 03:42 UTC
    Very nice++! Great way to demonstrate the concept of computer code as a "language". Put another way, you've translated from English to Perl.
Re: The Doom of the Noldor
by amargaritos (Initiate) on Nov 16, 2007 at 15:21 UTC
    thanks for an excellent translation, Erudil. At first I thought the "until not" construction was the wrong logic, but looking again, you got it exactly, evocatively right, of course. Terribly sad in any language. So when do we get the whole tale of the ring translated? But looking at this, maybe poetry is more suited to programming than prose, and prophecy (predictive algorithms?) more than narrative?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://17878]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2014-11-28 17:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (199 votes), past polls