He estado intentando sacar un programa que calcule números primos y me preguntaba si alguien del foro lo ha hecho ya (pero con programación simple o básica )
Lo seguiré intentando y cuando lo saque lo publicaré
for ($n=2;$n<=200;$n++)
{
for($m=2;$m<$n;$m++)
{
$primo= $n % $m;
if ($primo==0)
{
print "del 2 al 2000 no es primo el $n\n";
last;
}
}
}
f(1)=1 caso base
f(2)=1 caso base
f(n)=f(n-1)+f(n-2) caso recursivo
sub fibo
{
my $n=@_[0];
if ($n==0){return 1;}
else
{
if ($n==1){return 1;}
else
{
return( fibo($n-1)+fibo($n-2) );
{
}
}
$num= cantidad de números que se quieren calcular de la serie;
@fibo=('1','1');
for (my $i=2;$i=$num;$i++)
{
$fibo[$i]=$fibo[$i-1]+$fibo[$i-2];
}
$"=',';
print @fibo;
#!/usr/bin/perl -w
use strict;
#Números iniciales
my ($a,$b) = (1,1);
#Switch para que siga el bucle while
my $loop = "true";
#Vamos a calcular los números hasta:
my $ln = 100000000;
while($loop eq "true"){
print "$a\n"; #imprimimos el número
($a, $b) = ($b, $a+$b); #asignamos nuevos valores
$loop = "false" if $a > $ln; #checamos si llegamos al límite
}
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados