How to write a program for fibonacci series using perl?

Can someone help me in writing program for fibonacci series using perl..

Questions by kutta20

Showing Answers 1 - 3 of 3 Answers

Pavithra

  • Jun 29th, 2015
 

Code
  1. #!usr/bin/local/perl

    2. 

  2. $n=<>;

    3. 

  3. $f= 0;

    4. 

  4. $s = 1; 

    5. 

  5. for ( $i = 0 ; $i < $n ; $i++ )

    6. 

  6. {

    7. 

  7. if($i<= 1 )

    8. 

  8. {

    9. 

  9. $next=$i;

    10. 

  10. }

    11. 

  11. else

    12. 

  12. {

    13. 

  13. $next = $f + $s;

    14. 

  14. $f = $s;

    15. 

  15. $s = $next;

    16. 

  16. }

    17. 

  17. print(" the fibonacci series:$next 

    18. 

  18. ");

    19. 

  19. }

  Was this answer useful?  Yes

Give your answer:

If you think the above answer is not correct, Please select a reason and add your answer below.

 

Related Answered Questions

 

Related Open Questions