Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Perl Card Trick

by Flexx (Pilgrim)
on Sep 15, 2002 at 02:49 UTC ( #197979=note: print w/replies, xml ) Need Help??

in reply to Perl Card Trick

Hi, I'm too lazy to look into it right now, but (Update:finally, i wasn't) it does not work.

Use this test input:

Pick a card from below. (I choose 10 of s col 4 / row 1 below) [1] 2d Ah 5h 10s [2] Qc 3h As 7c [3] Kc 6d 9s Js [4] 8h Qd 3d 10c Which column is your card in (1-4, left-to-right)? 4 [1] [2] [3] [4] [1] 2d Qc Kc 8h [2] Ah 3h 6d Qd [3] 5h As 9s 3d [4] 10s 7c Js 10c Which row is your card in (1-4, top-to-bottom)? 4 Your card is: 10c

Oops! This can't work because you'll always get rows == cols. It will only work on cards that are on 1/1, 2/2, 3/3, and 4/4, as they don't move... But it's just a small glitch...

So long,

Replies are listed 'Best First'.
Re: Re: Perl Card Trick
by Lysander (Monk) on Sep 15, 2002 at 03:07 UTC
    Good catch. Thanks. I mislabeled the rows. It should go 1-4, bottom-to-top, rather than 1-4, top-to-bottom. Interesting enough, I think the trick still worked for every card except the one that you picked. :) I'm updating the code with the new labels.

      I'm sorry to tell you, but that still won't work... (try choosing 1/1 -- two of diamonds). You just shifted (mirrored) the problem...

      Now it still works for anything on 1/1 .. 4/4 in the original table...

      click Read more below for the solution...
Re: Re: Perl Card Trick
by jkahn (Friar) on Sep 15, 2002 at 02:58 UTC
    perhaps the code user prompts has have row and column confused.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://197979]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2021-02-27 13:25 GMT
Find Nodes?
    Voting Booth?

    No recent polls found