Front page | perl.golf |
Postings from August 2002
Re: Son of (-ugene's Cantor
Thread Previous
|
Thread Next
From:
Andrew.Savige
Date:
August 21, 2002 00:34
Subject:
Re: Son of (-ugene's Cantor
Message ID:
694BB7191495D51183A9005004C0B05452DF2F@ir-exchange-srv.ir.com.au
Sorry about the flooding, but this is an interesting problem.
The first of these is only one stroke behind Ton.
-l $_=$"x2**pop;s-.-s,,,,s,$,/\\,,print,s,(?<=\\)..,$&^h9^gE,eg-ge
-l $_=$"x2**pop;s-.-/./,$_="$'/\\",print,s,(?<=\\)..,$&^h9^gE,eg-ge
A minor improvement to "five substitutions":
-l s--$"x$^F**pop-e,s-.-s,,,,s,$,/\\,,print,s,(?<=\\)..,$&^h9^gE,ge-ge
/-\
Thread Previous
|
Thread Next