#!/usr/local/bin/perl -w use strict; my$t=",rtlr\n h ahkP tcraneeeusoJ"; my$s=join'',sort split//,$t; my(@t); while ($s=~/(.)\1*/sg){my$l=$1;push@t,(pos$t)-1 while$t=~/$l/g} my$i=0;print map{substr($s,$i=$t[$i],1)}(1..@t)
In reply to bzip your JaPH today! by ariels
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |