fork download
copy 
  1. let sierpinski =
  2.   let rec loop down space = function
  3.     0 -> down
  4.   | n ->
  5.     loop (List.map (fun x -> space + x + space) down
  6.           @ List.map (fun x -> x + " " + x) down)
  7.          (space + space)
  8.          (n - 1)
  9.   loop ["*"] " "
  10.  
  11. sierpinski 4
  12. |> List.iter (printfn "%s")
Success #stdin #stdout 0.07s 11680KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
               *               
              * *              
             *   *             
            * * * *            
           *       *           
          * *     * *          
         *   *   *   *         
        * * * * * * * *        
       *               *       
      * *             * *      
     *   *           *   *     
    * * * *         * * * *    
   *       *       *       *   
  * *     * *     * *     * *  
 *   *   *   *   *   *   *   * 
* * * * * * * * * * * * * * * *
https://ideone.com/izqxX
language:
F# (mono 4.1)
created:
14 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!