wedrifid comments on Open Thread: March 2010, part 2 - Less Wrong

4 Post author: RobinZ 11 March 2010 05:25PM

You are viewing a comment permalink. View the original post to see all comments and the full post content.

Comments (334)

You are viewing a single comment's thread. Show more comments above.

Comment author: wedrifid 19 March 2010 03:29:55AM *  1 point [-]

If all you have is regex s/.+/nail/

until(m/j{100}/){s/(j*)$/\1\n\1j/};
s/^(j{15})*$/fizzbuzz/gm;
s/^(j{3})*$/fizz/gm;
s/^(j{5})*$/buzz/gm;
s/^(j+)$/length($1)/gme;
print;

Warning: Do not try this (or any other perl coding) at home!