Front page | perl.golf |
Postings from July 2002
Re: more minigolf
Thread Previous
|
Thread Next
From:
Eugene van der Pijll
Date:
July 11, 2002 09:46
Subject:
Re: more minigolf
Message ID:
20020711164453.GA23225@ruunat.phys.uu.nl
En op 11 juli 2002 sprak Chris Dolan:
> Add your solutions to this list
>
> ---- Zero-based ----
>
> 45 Chris Dolan
> -l s/\d+/$&+$'/eg,s/^/1 /for($_=1)x+pop;print
>
> 49 Chris Dolan (non-regex)
> map$x/=@_=(1,map$_+$_[++$x],@_),0..pop;print"@_
> "
>
> 81 Chris Dolan (factorials)
> @_=map{$t=$n;$a=1;$a*=$t--/($n-$t)while$t>$_&&$n-$t<$_;$a}0..($n=pop);print"@_
> "
34 Eugene van der Pijll (rejected...)
@a^+=(!$_,@a)for 0..pop;print"@a
"
> ---- One-based ----
>
> 48 Jasper McCrea
> -l s/\S+/$&+$'/eg&s/^/1 /for($_)x pop;chop;print
>
> 49 Chris Dolan
> -l s/\d+/$&+$'/eg,s/^/1 /for($_=1)x(-1+pop);print
>
> 49 Chris Dolan
> map$x/=@_=(1,map$_+$_[++$x],@_),1..pop;print"@_
> "
>
36 Eugene van der Pijll (rejected...)
@a^+=(!$a++,@a)for 0..pop;print"@a
"
--
Don't play too much golf. Two rounds a day are plenty. -- |-|arry \/ardon
Thread Previous
|
Thread Next