Hack x Crack - Comunidad de Seguridad informática

Programación => Scripting => Perl => Mensaje iniciado por: BigBear en Diciembre 05, 2014, 03:04:38 pm

Título: [Perl] Ejemplo de Sucesion Fibonacci
Publicado por: BigBear en Diciembre 05, 2014, 03:04:38 pm
Un simple ejemplo de la Sucesion Fibonacci en Perl.

El codigo :

Código: Perl
  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.