File: Last.curry

package info (click to toggle)
curry-tools 3.3.0-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 3,764 kB
  • sloc: perl: 282; ruby: 154; makefile: 119; sh: 106
file content (11 lines) | stat: -rw-r--r-- 196 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
-- The classical last element of a list:

import Test.Prop

last :: Data a => [a] -> a
last xs | _ ++ [x] === xs = x  where x free

main :: Int
main = last [1,2,3]

test_last = last [1,2,3] -=- 3