Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

hur6kle -- a game in perl 6

by jaldhar (Vicar)
on Jun 22, 2009 at 20:24 UTC ( #773757=CUFP: print w/replies, xml ) Need Help??

A simple little game inspired by pmichauds talks at YAPC-NA in Pittsburgh.

#!/usr/local/bin/perl6 my $guesses = 5; say qq{{{{{ A Hurkle is hiding on a 10 by 10 grid. The south-west corner of the g +rid is point 0,0 and any gridpoint is a pair of whole numbers seperated by a +comma. Try to guess the Hurkle's gridpoint. You get $guesses tries. After e +ach try, I will tell you the approximate direction to go to look for the Hurkle +. }}}}}; my $guess = 0; my $hurkle_x =; my $hurkle_y =; regex digit { [0..9] }; regex seperator { \s* ',' \s* }; while ($guess++ != $guesses) { my $input = prompt "Guess #$guess "; $input ~~ / $<x>=<digit> <seperator> $<y>=<digit> /; unless ( ?$<x> && ?$<y> ) { say 'Huh?'; redo; } if ( ($<x> - $hurkle_x).abs + ($<y> - $hurkle_y).abs == 0) { say "\nYou found him in $guess guesses!"; exit 0; } say 'Go ', ($<y> < $hurkle_y) ?? 'North' !! ($<y> > $hurkle_y) ?? 'South' !! '', ($<x> < $hurkle_x) ?? 'East' !! ($<x> > $hurkle_x) ?? 'West' !! ''; } say "\nSorry that's $guesses guesses. The Hurkle is at $hurkle_x,$hu +rkle_y";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://773757]
Front-paged by Arunbear
[Discipulus]: good night monks!
[shmem]: LanX: oh... now I have to figure out if this is good or bad news.
LanX bad day monks ?
[LanX]: hope you find sleep
[shmem]: LanX: which one?
[LanX]: the last
Discipulus yes a very bad day
[shmem]: grandola, vila morena
[shmem]: LanX: ah, that one. You'll get the bug reports also :P
[Discipulus]: upvote me! i'll make pm great again! ;=)

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2017-04-29 22:43 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (534 votes). Check out past polls.