user-pic

ephemient

  • 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)...
Subscribe to feed Recent Actions from ephemient

No responses to comments.

Subscribe to feed Responses to Comments from ephemient

About 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.