Re: 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
[download]

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,
Flexx

Comment on Re: Perl Card Trick Download Code

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.	[reply]
Re^3: Perl Card Trick by Flexx (Pilgrim) on Sep 15, 2002 at 03:24 UTC
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... Read more... (2 kB)	[reply] [d/l] [select]
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.	[reply] [d/l] [select]


Perl: the Markov chain saw
	PerlMonks