fork download
copy 
(let ((n 10) (a 0) (b 1))
  (tagbody
   ODAI-PT13-673
     (princ a)
     (setq n (1- n))
     (psetq a b
            b (+ a b))
     (when (> n 0)
       (princ ", ")
       (go ODAI-PT13-673))
     (terpri)))
Success #stdin #stdout 0s 203840KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
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!