fork download 
  1. (let ((n 10) (a 0) (b 1))
  2.   (tagbody
  3.    ODAI-PT13-673
  4.      (princ a)
  5.      (setq n (1- n))
  6.      (psetq a b
  7.             b (+ a b))
  8.      (when (> n 0)
  9.        (princ ", ")
  10.        (go ODAI-PT13-673))
  11.      (terpri)))
  12.  
Success #stdin #stdout 0s 203840KB
comments (?)
stdin 
Standard input is empty
stdout 
0, 1, 1, 2, 3, 5, 8, 13, 21, 34
https://ideone.com/fbbBbx
language:
Common Lisp (sbcl 1.4.16)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!