develooper Front page | perl.golf | Postings from July 2002

Re: more minigolf

Thread Previous | Thread Next
From:
perl-golf
Date:
July 11, 2002 07:39
Subject:
Re: more minigolf
Message ID:
agk59h$tbi$1@post.home.lunix
my 41:
@F[y///c]++for glob"{,1}"x pop;print"@F\n"
@F[eval]++for glob"{,+1}"x pop;print"@F\n"
print"@{[$w=1,map$w*=$_/--$;,-pop..-1]}\n"

my 42:
@F[y///c]++for glob"{,1}"x~-pop;print"@F\n"
@F[eval]++for glob"{,+1}"x~-pop;print"@F\n"

Also fun are:
45 s/^/0 /,s/\d+/$&+$'/egfor($_="1\n")x pop;print
48 @F=1;push@F,$F[-1]*$_/--$;for-pop..-1;print"@F\n"

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About