Commonmark migration

Source Link

edited Jun 17, 2020 at 9:04

#Perl 5, 59 bytes

Perl 5, 59 bytes

{say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25}

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

#Perl 5, 59 bytes

{say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25}

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

{say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25}

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

perlsub says "The signature is part of a subroutine's body. Normally the body of a subroutine is simply a braced block of code."

Source Link

edited Apr 13, 2016 at 16:00

#Perl 5, 5759 bytes

{say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25}

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

#Perl 5, 57 bytes

say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

#Perl 5, 59 bytes

{say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25}

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

deleted 5 characters in body

Source Link

edited Jan 12, 2016 at 19:47

#Perl 5, 6057 bytes

say for@{[sortfor(sort{-1+2*int rand 2}1..69]}69)[0..5];say$==1+rand 25

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

#Perl 5, 60 bytes

say for@{[sort{-1+2*int rand 2}1..69]}[0..5];say$==1+rand 25

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

#Perl 5, 57 bytes

say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'

Source Link

created Jan 12, 2016 at 19:42

Loading

Return to Answer