fork download
copy 
  1. (defun f (s) (if (string-not-equal (subseq s 0 1) "#")(f (print(concatenate 'string (subseq s 1) "#"))) s)) 
  2. (f (make-string 11 :initial-element #\Space))
Success #stdin #stdout 0s 203840KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
"          #" 
"         ##" 
"        ###" 
"       ####" 
"      #####" 
"     ######" 
"    #######" 
"   ########" 
"  #########" 
" ##########" 
"###########"
https://ideone.com/0wfEKY
language:
Common Lisp (sbcl 1.4.16)
created:
8 years 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!