fork download
copy 
  1. (defun trampoline (function &rest args)
  2.   (loop :for fn = (apply function args)
  3.           :then (funcall fn)
  4.         :while fn))
  5.  
  6. (defun fizzbuzz (n limit)
  7.   (when (<= n limit)
  8.     ;; заменишь на свой fizz buzz
  9.     (print n)
  10.     (lambda () (fizzbuzz (1+ n) limit))))
  11.  
  12. (trampoline #'fizzbuzz 1 10)
Success #stdin #stdout 0.02s 28852KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10
https://ideone.com/g0fhFS
language:
Common Lisp (sbcl 1.4.16)
created:
206 days ago
visibility:
secret

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!