fork download
copy 
  1. (define (all-but-last xs)
  2. 	(match xs
  3. 	 [(list x) (list)]
  4. 	 [(list-rest x xs) (cons x (all-but-last xs))]))
  5.  
  6.  
  7. (displayln
  8. 	(all-but-last '[1 2 3 4 5]))
Success #stdin #stdout 0.25s 97600KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(1 2 3 4)
https://ideone.com/Wr2Kv7
language:
Racket (racket 7.0)
created:
6 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!