fork(1) download
copy 
  1. y%x@(a:b:c)=(y++x):(y++[min a b])%(max a b:c)
  2. y%x=[]%(y++x)
  3. [x]!_=[x] 
  4. x!n=[]%x!!n
  5.  
  6.  
  7. main = print $ [15,18,-6,18,9,-7,-1,7,19,19,-5,20,19,5,15,-5,3,18,14,19] ! 120
  8.  
Success #stdin #stdout 0s 4712KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[-7,-6,-1,-5,7,9,15,5,15,-5,3,18,14,18,18,19,19,19,19,20]
https://ideone.com/GO4RTV
language:
Haskell (ghc 8.4.4)
created:
7 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!