fork download
copy 
  1. #!/usr/bin/perl
  2. use 5.016;
  3. use warnings;
  4.  
  5. package _FizzBuzz;
  6. use overload (
  7. 	'""' => sub{ $_[0]->string || $_[0]->number },
  8. 	'0+' => sub{ $_[0]->number },
  9. 	fallback => 1
  10. );
  11.  
  12. sub new { bless [ @_[1, 2] ], (ref $_[0] || $_[0]) }
  13. sub number { $_[0]->[0] }
  14. sub string { $_[0]->[1] }
  15.  
  16. package main;
  17.  
  18. sub _fizz_buzz {
  19. 	my ($o, $n, $s) = @_;
  20.  
  21. 	return (
  22. 		(ref $o eq '_FizzBuzz') ?
  23. 			$o->new($o->number, $o->string . ($o->number % $n ? '' : $s)) :
  24. 			_fizz_buzz(_FizzBuzz->new($o, ''), $n, $s)
  25. 	);
  26. }
  27.  
  28. sub fizz { _fizz_buzz($_[0], 3, 'Fizz') }
  29. sub buzz { _fizz_buzz($_[0], 5, 'Buzz') }
  30. sub gizz { _fizz_buzz($_[0], 7, 'Gizz') }
  31.  
  32. say buzz fizz 1;
  33. say buzz fizz 3;
  34. say buzz fizz 5;
  35. say buzz fizz 15;
  36. say buzz fizz 998;
  37.  
  38. say gizz buzz fizz 7;
  39. say gizz buzz fizz 21;
  40. say gizz buzz fizz 35;
  41. say gizz buzz fizz 105;
  42. say buzz gizz fizz 105;
  43.  
  44. say buzz(fizz(1)) + 2;
  45. say fizz(buzz(fizz(1)) + buzz(2));
  46. say gizz(buzz(fizz(15))) . "XXX";
  47.  
Success #stdin #stdout 0s 3828KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
Fizz
Buzz
FizzBuzz
998
Gizz
FizzGizz
BuzzGizz
FizzBuzzGizz
FizzGizzBuzz
3
Fizz
FizzBuzzXXX
https://ideone.com/nj1VFQ
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!