Polyglot tomfoolery ⬜
I once made a gemlog post that was also valid Whitespace code
Today I came across polyglot code by Paul at foo.zone
I thought "He's done valid C, C++, Perl and Raku, but I can do better!" so here it is as valid Whitespace too.
- Minor issue 1: there's now some tabs inside the output, except in Whitespace. I think this issue is fixable. I could put the tabbed output in the Whitespace code too. But I ran out of interest and time, as I was hand-embedding the existing polyglot into the Whitespace and I didn't want to do it again.
- Minor issue 2: I tested that it still works in Perl, but I can't test C, C++ or Raku. I'm moderately confident though.
Any way, here it is.
#include <stdio.h>
#define $arg function_argument
#define my int
#define sub int
#define BEGIN int main(void)
my $arg;
sub hello() {
printf("Hello, welcome to the Fibonacci Numbers!\n");
printf("This program is all, valid C/C++/Perl/Raku and Whitespace code!\n");
printf("It calculates all fibonacci numbers from 0 to 9!\n\n");
return 0;
}
sub fibonacci() {
my $n = $arg;
if ($n < 2) {
return $n;
}
$arg = $n- 1;
my $fib1 = fibonacci();
$arg = $n - 2;
my $fib2 = fibonacci();
return $fib1 + $fib2;
}
BEGIN {
hello();
my $i = 0;
while ($i <= 10) {
$arg = $i;
printf("fib(%d) = %d\n", $i, fibonacci());
$i++;
}
}
Source