Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module Repetido where
- repetido :: Int -> [Int] -> Int
- --repetidoAux :: Int -> [Int] -> Int -> Int -> Int
- --repetido n lista = repetidoAux n lista 0 1
- --repetidoAux n lista i j = if(n<=length(lista)) then(if(lista!!j==n) then (repetidoAux n lista (i+1) (j+1)) else (repetidoAux n lista i (j+1))) else i
Add Comment
Please, Sign In to add comment