ν42

Interpretive FizzBuzz experiment brings the myth of Perl as line noise to life

A. Sinan Unur

I have a feeling this won’t necessarily improve Perl’s reputation, but I was inspired by Non-Alphanumeric Ruby for Fun and Not Much Else. For reference, here is the Rosetta Code page for FizzBuzz.

#!/usr/bin/env perl

use feature 'say';
use strict;
use warnings;

sub __ { join '' => map chr, @_ }

 = ( +  + ) / ;
 = ( + ) -  / ;

 = __(
     *  *  - ,
     *  *  - ( +  / ) * ,
     *  *  - ,
     *  *  - ,
);

 = __(
    ( + ) * ( +  +  / ),
    ( * ) * ( +  + ),
     *  *  - ,
     *  *  - ,
);


sub {
    say
        sub {[ % ] %  == ( != ) && }->() .
        sub {[ - ] %  == ( != ) && }->() ||
        
    for @_
}->(( / ) .. ( + ) * ( + ));

This is my personal technical blog. Views expressed here are my own independently formed personal opinions. Nothing I say here necessarily represents or endorses, nor is it endorsed by, any of my past, present, and future employers and/or clients.

Affiliate links: I use affiliate links to link directly to products I actually bought and use. I have found these products useful, and I am sharing that information. If you click on those links, I receive a small commission. I am not compensated directly by any provider, seller, or producer to place these links.

Copyright © 2021 A. Sinan Unur

Terms