fork download
copy 
  1. (defn next-triangle [triangle]
  2.   (let [triangle (vec (map (fn[row-string] (str " " row-string)) triangle))
  3.         triangle (assoc triangle (count triangle) 
  4.                    (nth (iterate (fn[row] (str row "\u25B2\u00A0")) "") (+ 1 (count triangle))))]
  5.     triangle))
  6.  
  7. (defn print-triangle [triangle]
  8.  (doall (map println triangle))
  9.  (println))
  10.  
  11. (doall (map print-triangle (take 10 (iterate next-triangle []))))
Success #stdin #stdout 1.36s 389120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
▲ 

 ▲ 
▲ ▲ 

  ▲ 
 ▲ ▲ 
▲ ▲ ▲ 

   ▲ 
  ▲ ▲ 
 ▲ ▲ ▲ 
▲ ▲ ▲ ▲ 

    ▲ 
   ▲ ▲ 
  ▲ ▲ ▲ 
 ▲ ▲ ▲ ▲ 
▲ ▲ ▲ ▲ ▲ 

     ▲ 
    ▲ ▲ 
   ▲ ▲ ▲ 
  ▲ ▲ ▲ ▲ 
 ▲ ▲ ▲ ▲ ▲ 
▲ ▲ ▲ ▲ ▲ ▲ 

      ▲ 
     ▲ ▲ 
    ▲ ▲ ▲ 
   ▲ ▲ ▲ ▲ 
  ▲ ▲ ▲ ▲ ▲ 
 ▲ ▲ ▲ ▲ ▲ ▲ 
▲ ▲ ▲ ▲ ▲ ▲ ▲ 

       ▲ 
      ▲ ▲ 
     ▲ ▲ ▲ 
    ▲ ▲ ▲ ▲ 
   ▲ ▲ ▲ ▲ ▲ 
  ▲ ▲ ▲ ▲ ▲ ▲ 
 ▲ ▲ ▲ ▲ ▲ ▲ ▲ 
▲ ▲ ▲ ▲ ▲ ▲ ▲ ▲ 

        ▲ 
       ▲ ▲ 
      ▲ ▲ ▲ 
     ▲ ▲ ▲ ▲ 
    ▲ ▲ ▲ ▲ ▲ 
   ▲ ▲ ▲ ▲ ▲ ▲ 
  ▲ ▲ ▲ ▲ ▲ ▲ ▲ 
 ▲ ▲ ▲ ▲ ▲ ▲ ▲ ▲ 
▲ ▲ ▲ ▲ ▲ ▲ ▲ ▲ ▲ 
https://ideone.com/P1eTMF
language:
Clojure (clojure 1.10.0)
created:
10 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!