Not sure
This commit is contained in:
		
							parent
							
								
									5af66cc89d
								
							
						
					
					
						commit
						1c60de9818
					
				
							
								
								
									
										14
									
								
								Haskell.org
									
									
									
									
									
								
							
							
						
						
									
										14
									
								
								Haskell.org
									
									
									
									
									
								
							@ -18,8 +18,11 @@ https://wiki.haskell.org/H-99:_Ninety-Nine_Haskell_Problems
 | 
			
		||||
myLast [] = error "Cannot accept an empty list"
 | 
			
		||||
myLast [x] = x
 | 
			
		||||
myLast (_:xs) = myLast xs
 | 
			
		||||
 | 
			
		||||
myLast [1..5]
 | 
			
		||||
#+end_src
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
*** #2 Find the last but one element of a list.
 | 
			
		||||
 | 
			
		||||
#+begin_src haskell
 | 
			
		||||
@ -74,7 +77,14 @@ elementAt (x:xs) i = if i == 1 then x else elementAt xs (i - 1)
 | 
			
		||||
myLength [] = 0
 | 
			
		||||
myLength xs = foldl (\acc _ -> acc + 1) 0 xs
 | 
			
		||||
-- or
 | 
			
		||||
myLength [] = 0
 | 
			
		||||
myLength (_:xs) = 1 + myLength xs
 | 
			
		||||
myLength' [] = 0
 | 
			
		||||
myLength' [x] = 1
 | 
			
		||||
myLength' (_:xs) = 1 + myLength xs
 | 
			
		||||
 | 
			
		||||
myLength [1..5]
 | 
			
		||||
myLength' [1..5]
 | 
			
		||||
#+end_src
 | 
			
		||||
 | 
			
		||||
#+RESULTS:
 | 
			
		||||
: 5
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user