use Math::BigInt; use 5.010; my $line = "+----+------------------------+"; say $line; printf "| %2d | %22s |\n", 2 * $_, Math::BigInt->new(2 * $_)->bfac / (2 * Math::BigInt->new($_)->bfac +) for 1 .. 16; say $line; __END__ +----+------------------------+ | 2 | 1 | | 4 | 6 | | 6 | 60 | | 8 | 840 | | 10 | 15120 | | 12 | 332640 | | 14 | 8648640 | | 16 | 259459200 | | 18 | 8821612800 | | 20 | 335221286400 | | 22 | 14079294028800 | | 24 | 647647525324800 | | 26 | 32382376266240000 | | 28 | 1748648318376960000 | | 30 | 101421602465863680000 | | 32 | 6288139352883548160000 | +----+------------------------+
In reply to Re^3: "Divide" challenge
by JavaFan
in thread "Divide" challenge
by grizzley
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |