fork download
copy 
  1. #! /usr/bin/env perl6
  2.  
  3. my &postfix:<p!> = {[lcm] 1..$_}
  4.  
  5. say 1p!; # 1
  6. say 2p!; # 2
  7. say 3p!; # 6
  8. say 4p!; # 12
  9. say 5p!; # 60
  10. say 6p!; # 60
  11. say 7p!; # 420
Success #stdin #stdout 2.36s 197632KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
6
12
60
60
420
https://ideone.com/gR4SK5
https://c...content-available-to-author-only...e.com/questions/82494/pseudofactorial/82537#82537
language:
Perl (perl 2018.12)
created:
8 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!