Skip to main content

Quick actions

cmd+k|ctrl+k

Search actions and languages

Navigation

Languages

Factorial JyG Sm42

Snippet info

Language

Perl

Visibility

public

Author

koel090401

Created

2020-09-27T02:13:28Z

Updated

2020-09-27T02:21:36Z

123456789

use strict;

use warnings;

use 5.010;

my $f = 1;

my $i = 1;

my $n = 5; #Aquí cambia el número que quiera utilizar.

$f *= ++$i while $i < $n;

say $f;

use strict;
use warnings;
use 5.010;
 
my $f = 1;
my $i = 1;
my $n = 5; #Aquí cambia el número que quiera utilizar.
$f *= ++$i while $i < $n;
say $f;

Perl

INFO

Home Public snippets Account Contact Privacy