fork download 
  1. import Data.List
  2.  
  3. data Tree a = Node a [Tree a] deriving Show
  4.  
  5. flattenHead (Node x (n:_)) = x : flattenHead n
  6.  
  7. infiniteMap f ~(x:xs) = f x : infiniteMap f xs
  8.  
  9. scan f a ~(Node x ns) = Node a' $ infiniteMap (scan f a') ns where a' = f a x
  10.  
  11. main = print $ take 10 $ flattenHead $ scan const "pointless" undefined
Success #stdin #stdout 0s 6232KB
comments (?)
stdin 
Standard input is empty
stdout 
["pointless","pointless","pointless","pointless","pointless","pointless","pointless","pointless","pointless","pointless"]
https://ideone.com/C6SnCA
language:
Haskell (ghc 8.4.4)
created:
10 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!