FWIW: this is what I came up with yesterday after anonymonk prompted me into getting my mind around what I was trying to describe in the OP:
$x = join'', shuffle map{ ($_)x10 } 'a'..'j'; print $x;; ahgbjgbcjjgbbfdiadeehgdhcijjebaaegehccdfdbejcgdhehcbehdgcihiffgefjijab +fbjadfaaiiiahfegihdgdaccicffjb $y = $x; $y =~ tr[abcdefgh][12341234]; print $y;; 1432j323jj32224i141143443ijj121113143342421j3344143214433i4i22312jij12 +22j14211iii14213i4434133i322j2 $i=0; $j=0; $y =~ s[([ij])]{ $1 eq 'i' ? ( ($i^=1) ? '1' : '2' ) : ( ($j^=1) ? '3' + : '4') }ge; print $y;; 1432332343322241141143443243121113143342421433441432144331422231231412 +223142112121421314434133232242
In reply to Re^2: mapping 10 -> 4 equally.
by BrowserUk
in thread mapping 10 -> 4 equally.
by BrowserUk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |