fork download
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4. use strict;
  5.  
  6. $\ = $/;
  7.  
  8. while(<>){
  9. print do {
  10. $_ == 2 ? 2 * 3 * 5 :
  11. $_ == 3 ? 3 * 2 * 5 :
  12. $_ * 2 * 3
  13. };
  14.  
  15. }
  16.  
Success #stdin #stdout 0s 18256KB
stdin
7
stdout
42