masak

# fizzbuzz without conditionals in Perl 6

# Simple pattern matching using multi subs
sub fizzbuzz($n) {
    multi case($, $) { $n }
    multi case(0, $) { "fizz" }
    multi case($, 0) { "buzz" }
    multi case(0, 0) { "fizzbuzz" }

    case $n % 3, $n % 5;

masak

use v6;

### CODE GOES HERE ###

my $matrix =
    ┌         ┐
    │ 1, 2, 3 │
    │ 4, 5, 6 │
    └         ┘

masak

use strict;
use warnings;
use feature 'say';
 
package Promise {
 
    sub state {
        return shift->{'state'};
    }
 

masak

sub gen(Int $c = 6) {
    my @l = '[' xx $c;
    my @r = ']' xx $c;
    my $s = '';
    $s ~= (@l == @r ?? @l
                    !! (@l + @r).rand < @l
                    ?? @l
                    !! @r).shift
        while @l || @r;

masak

Hi,

We (jnthn + masak) met to discuss the next event, and came up with some ideas. We came up with one talk that we'd give jointly, 2 proposals for masak to give, and 3 proposals for jnthn to give. From here, it depends on how many slots we have; if we were to have 5 slots, then the joint one plus masak's two and the choice of 2 out of the 3 suggested for jnthn would work. If we are going to have a guy come along and do a couple of JavaScript ones, that'd take us up to 7 sessions, which is enough for an event. :-)

Anyway, here's the ideas.

Git for the Enterprise

Presented jointly by Carl Mäsak and Jonathan Worthington

masak

TItle

"Intermediate Perl" or "Advanced Perl"

Abstract

Perl was created in 1987, and in growing up it has attracted system administrators, web developers, bioinformaticians, and application devlopers among its ranks. The language itself has also evolved; Perl today doesn't look like Perl in the nineties.

masak

# http://www.elliottkember.com/kember_identity.html
use v6;

pir::load_bytecode('Digest/MD5.pir');

my Int $count = 0;
my Str @alphabet = (0..9, 'a'..'f');

my Str $string = @alphabet.roll(32).join;
loop {