7.8 - --????????????????????????--this helps fsts ::...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
--7.8 import Prelude hiding(reverse,unzip) reverse :: [a] -> [a] reverse [x] = [x] reverse x = ( (last x) : (reverse (init x)) ) unzip :: [(a,b)] -> ([a],[b]) unzip [(x,y)] = ([x],[y]) unzip ( (x,y) : xys ) = ( (x:
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: --????????????????????????--this helps fsts :: [(a,b)] -> [a] snds :: [(a,b)] -> [b] fsts = fsts ( (x,y) : xs ) = (x : (fsts xs)) snds = snds ( (x,y) : ys ) = ( y: (snds ys))...
View Full Document

This note was uploaded on 11/10/2010 for the course CS 332F taught by Professor Russel during the Spring '10 term at California State University Los Angeles .

Ask a homework question - tutors are online