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,
Flexx
In Section
Code Catacombs