elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Ejemplo de Sucesion Fibonacci
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Ejemplo de Sucesion Fibonacci  (Leído 2,638 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Ejemplo de Sucesion Fibonacci
« en: 5 Diciembre 2014, 15:04 pm »

Un simple ejemplo de la Sucesion Fibonacci en Perl.

El codigo :

Código
  1. # !usr/bin/perl
  2. # Sucesion Fibonacci
  3. # Coded By Doddy Hackman in the year 2014
  4.  
  5. head();
  6.  
  7. print "\n\n[+] Enter count : ";
  8. chomp( my $cantidad = <stdin> );
  9.  
  10. print "\n";
  11.  
  12. my ( $uno, $dos ) = ( "0", "1" );
  13.  
  14. for my $num ( 0 .. $cantidad ) {
  15.    print "[+] : " . $uno . "\n";
  16.    my $final = $uno + $dos;
  17.    $uno = $dos;
  18.    $dos = $final;
  19. }
  20.  
  21. copyright();
  22. <stdin>;
  23. exit(1);
  24.  
  25. # Functions
  26.  
  27. sub head {
  28.    print "\n-- == Fibonacci Sequence == --\n";
  29. }
  30.  
  31. sub copyright {
  32.    print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
  33. }
  34.  
  35. # The End ?
  36.  
  37.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Sucesión Fibonacci [Batch] « 1 2 »
Scripting
leogtz 17 15,172 Último mensaje 15 Junio 2009, 17:26 pm
por leogtz
Duda con un ejemplo simple en Perl
Scripting
skan 3 3,056 Último mensaje 19 Mayo 2010, 13:08 pm
por skan
[Código-Ruby]Sucesión Fibonacci - JaAViEr
Scripting
0x5d 0 2,738 Último mensaje 8 Enero 2012, 08:57 am
por 0x5d
Duda en el código (porgrama sucesión de Fibonacci)
Programación C/C++
b_rabbit10 2 2,600 Último mensaje 18 Febrero 2013, 22:15 pm
por b_rabbit10
Sucesion de Fibonacci recursiva optimizada « 1 2 »
Programación C/C++
do-while 18 12,400 Último mensaje 29 Julio 2013, 13:47 pm
por eferion
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines