in reply to A little golfing challenge: Replacing letters with numbers
OUTPUT:perl -0777 -ne 'print "" . ( join "", "A" .. "Z" ) =~ s/[^$_]/ /gr =~ +s/\B\w+\B/-/gr =~ s/ +//gr'
Corresponding link.A-IK-NP-TVWYZ
..but somehow got: A--IK--NP--TV-WY-Z :(perl -0777 -ne 'print "" . ( join "", "A" .. "Z" ) =~ s/[^$_]/ /gr =~ +s/(?<=\w)\w*(?=\w)/-/gr =~ s/ +/ /gr'
|
|---|