user
Jasper
I have been programming in perl for several years.<br><br>
I like programming in perl.<br><br>
[id://124845|This] is my most upvoted node. And my first post, too. I hadn't learnt how to create a user account at that state. (Boy, does it look bad now - must revisit it at some stage to fix bugs, and shorten it a bit)<br><br>
Maximillian tells me to do horrible things. I try to ignore him.<br><br>
If anyone remembers a webcomic of the early 00s called 'Trevor the cat' that was me.<br><br>
I like the trickery of perl golf..<br><br>
Here's a thing to print out all the valid permutations of a number of pairs of parentheses (don't try it on a number bigger than 7, it's also quite a good machine killer):<br><br>
<code>$c-=fork?$c?s//(/:exit:- s//)/for($_)x(2*pop);$c||print</code><br><br>
This won me $25 in the fonality competition:<br><br>
<code>-lp map{y/IVXLC/XLCDM/,s!\d!$&^4?$&^9?V x($&>3).I x($&%5):IX:IV!ewhile//;$$_=$n++}@d=0..4e3;y/m/-/;s/\w+/+${$&}/g;$_=$d[eval]</code>
<br><br>Although I completely missed the excellent trickery of <code>4x$&%1859^7</code> which might have saved me four or five strokes!<br><br>
Some of my other solutions (prizes for working out what the problem was!)<br>
<code>-lpaF| for$i(0..19){$s{$_ x($i>13).($i%7).$_ x($i>6&$i<13).(6-$.).$_ x($i<6)}|=$F[$i]for 0..5}}{$_=grep/X/,%s</code><br><br>
<code>pos=$i++/2,//g,print"$`",$_=reverse,/^$'/?$/:redo for pop</code><br><br>
<code>-l $k=(pop)x99;print+map{$k=~s///;(uc..Z,@a=A..$&)[$#a]}<>=~/\pL/g</code><br><br>
<code>$_=$"x map$b.='-',2..pop;$t=$t?"$`/$_/$'|
$t
|$_|$'/":"+$b+$_+"while//g;print" $_+$b+
$t
+$b+
"</code><br><br>
<code>print map"@{['### ## # #'=~/.../g]}[(/./g)[@_]]
",-1003e5,3111322133,31e8|100,3121113131,-10x4 if split'',pop</code><br><br>
<code>
-lp $;+=y/.:|-/125/d?$_:19*$;for/./g;$_=$</code><br><br>
<code>-p0 sub g{my($b,$r)=@_;$s{$b}++||map{$p='.'x8x/[A-Z]/;$s||=$r x$b=~/$c
/||g($n=$b,"$r$c ".($n=~s/$_(($p$c)+$p)(?!$_)($c| )/$3$1$_/s-2*/ /).$/)for$",$c=$_}$b=~/\w/g;$s}$_=g$_</code>
<br><br>
p.s. if you recognize the Maximillian action figure from the Black Hole, you might be interested in joining my Yahoo group for collecting like stuff (<a href="http://groups.yahoo.com/group/humanoid">group</a>)
2022-03-29 18:15:36
1938
360101
198450
230
London