ephemient
Recent Actions
-
Commented on /Fizz|Buzz/
Actually that had a bug on 5-digit numbers and it turns out the regex engine doesn't need backtracking control here either. #!/usr/bin/env perl use v5.14; say s{ ^ (?<a> [0369]* ) (?: (?: (?<b> [147] ) (?<B> (?&a) (?: (?&c)...
-
Commented on /Fizz|Buzz/
use v5.14; say s{ ^ (?<a> [0369]* (*PRUNE) ) (?: (?<b> [147] (*PRUNE) ) (?<B> (?&a) (?: (?&c) | (?&b) (?&C) ) ) | (?<c> [258] (*PRUNE) ) (?<C> (?&a) (?: (?&b) | (?&c) (?&B) ) ) )* (?&a)...
Comment Threads
No responses to comments.
Responses to Comments from ephemientAbout blogs.perl.org
blogs.perl.org is a common blogging platform for the Perl community. Written in Perl with a graphic design donated by Six Apart, Ltd.