Comments on: Day 8: .comb your constraints

By: День 8: расчесываем ограничения | Ky6uk's Blog

День 8: расчесываем ограничения | Ky6uk's Blog — Sat, 19 Jun 2010 18:45:04 +0000

[...] Оригинальная статья. VN:F [1.9.1_1087]один момент…Rating: 5.0/10 (1 vote cast)День 8: [...]

By: Lee Wenzbauer

Lee Wenzbauer — Thu, 25 Feb 2010 00:31:14 +0000

Sorry: { $_ = rotate_one( $_, $n) if //; $_ } ).join( ” );

By: Lee Wenzbauer

Lee Wenzbauer — Thu, 25 Feb 2010 00:28:41 +0000

Here, should be:
{ $_ = rotate_one( $_, $n) if /;<alpha;>/; $_ } ).join( ” );

By: Lee Wenzbauer

Lee Wenzbauer — Wed, 24 Feb 2010 23:11:42 +0000

Ok, it’s the angle brackets. The comment software removed angle brackets and anything between them.

By: Lee Wenzbauer

Lee Wenzbauer — Wed, 24 Feb 2010 23:10:09 +0000

Did it again. I don’t know whether it’s the or the /slash marks/.

By: Lee Wenzbauer

Lee Wenzbauer — Wed, 24 Feb 2010 23:09:13 +0000

Posting mangled my code: The line reading { $_ = rotate_one( $_, $n) if //; $_ } ).join( ” ); should be:
{ $_ = rotate_one( $_, $n) if //; $_ } ).join( ” );

By: Lee Wenzbauer

Lee Wenzbauer — Wed, 24 Feb 2010 23:04:50 +0000

I mean 0x1F. Anyway, you get it.

By: Lee Wenzbauer

Lee Wenzbauer — Wed, 24 Feb 2010 23:03:11 +0000

This is pretty much like the example. I just moved the alpha test to rotate and checked for overflow a different way:

use v6;

sub rotate_one( Str $c where { $c.chars == 1 }, Int $n ) {
my $a = $c.ord;
$a -= 26 if ($a +& 0x1F) + $n > 26;
return ($a + $n).chr;
}

sub rotate(Str $s where { $s.chars }, Int $n = 3)
{
return ($s.comb.map:
{ $_ = rotate_one( $_, $n) if //; $_ } ).join( ” );
}

my Str $mess = @*ARGS[0];
my Int $rotate = @*ARGS[1].Int;

say qq|”$mess” rotated $rotate characters gives “{rotate($mess,$rotate)}”.|;

I know I’m using a “magic number” (0x1A) but there’s already a magic number in the code (26).

By: Geoff Broadwell

Geoff Broadwell — Wed, 09 Dec 2009 04:53:23 +0000

Perl has a long tradition of allowing programmers to be productive no matter what their skill level, from beginner to wizard. In this case, perl6lurker is using mostly beginner to intermediate concepts, but combining them in a more advanced way, because it is, well, “neat”.

That said, Perl 6 has significantly raised the upper limit of supported wizardry (by design), so I expect there will be a number of times when I come across code that has a rather koan-like demeanor and effect. :-)

By: wow

wow — Tue, 08 Dec 2009 17:49:58 +0000

Wow. I sincerely hope never to need to read or write Perl6. This is insanity!