Coding Contest: Can Perl 6 Scratch Your Itch?

There is a coding contest that just went up to encourage folks to try out Perl6: http://strangelyconsistent.org/blog/masaks-perl-6-coding-contest If this is an itch you'd like to scratch, you might also check out: Rosetta Code for examples of using Perl 6 to solve familiar problems: http://rosettacode.org/wiki/Category:Perl_6 The Perl 6 Website: http://www.perl6.org/

Comments

Post a Comment

Popular posts from this blog

Perl's popularity problem...

There has been a recent flurry of blogs on Perl's perceived popularity problem: Solutions Are Not Problems. Problems Are Problems , Ovid seems to be asking us to ignore the symptoms and work harder to identify the underlying causes Is the Perl Community Schizophrenic? , Phillip Smith argues that the Perl community needs a benevolent branding dictator Is it really hard to find good Perl programmers? , Gábor focuses in on the belief that Team leaders and managers think about Perl that it is dead, unmaintainable Perception is Reality , Gábor recommends getting professional help (PR/Marketing) What does the Outside of Perl look like? , Ovid on the negative perceptions of Perl I'm a little cynical. Many good insights and areas for improvement are identified. But Perl needs to gain mindshare. And the only way to do that is to deliver the goods: Perl needs best of breed and/or innovative killer apps... There is very little going on today which makes Perl relevant to anyone outside the...
Read more

Raku: Advent of Code 2020 - Day Thirteen

Raku solutions to Day Thirteen of the 2020 Advent of Code. Today's puzzle involved bus routes. Part One requires you to figure out which route id will arrive closest to a timestamp. The answer to Part Two involves identifying when an alignment of departure times across route ids will occur. #!/usr/bin/env raku use v6.d ; my ( $depart , $line ) = 'input' . IO . slurp . split ( " \n " ); $depart .= Int ; say "Part One: " ~ [*] $line . split ( ',' ) . grep ( none 'x' ) ». Int . map ({ $_ , $_ - ( $depart ) mod $_ }) . min ({ . [ 1 ] }) . flat ; # index of @l is the offset from factor my @l = $line . split ( ',' ); my ( $r , $factor ) = ( 0 , @l [ 0 ] . Int ); for 1 ..^ @l -> $i { next if @l [ $i ] eq 'x' ; $r = ( $r , { $_ + $factor } ... -> $a { ( $a + $i ) mod @l [ $i ] . Int == 0 }) . tail ; $factor *= @l [ $i ]; } say "Part Two: $r " ; Part One Given the sample inpu...
Read more

Catalyst::View::Mason Documentation ne Implementation

I've got an old gentoo Apache mod_perl Mason site which I maintain for work. Mostly it is used for mining data from our less than desirable issue tracking system (Soffront Track) in order to help make realistic guestimates of what we can deliver and when. It is running on an old quad xeon box that we'd experimented with, and decided not to use in production. Since work is a "Microsoft" shop, it has long been an item on my todo list to move it over to a windows box... but for some reason, I've never really gotten around to it. However, a couple years back I did do the least amount of work necessary to get it to run in a windows w/ Catalyst::View::Mason environment. I've changed laptops a couple times since then, Perl 5.10.0 was released and Catalyst 5.8. So last week, I reinstalled the latest version of all of the above on my laptop so I could take my work with me on the go. I found that I had to add: __PACKAGE__->config(use_match => 1); to my ...::View::...
Read more