Diferencia entre revisiones de «Primer Parcial 1er Cuat 2006 (Paradigmas)»
De Cuba-Wiki
Sin resumen de edición |
|||
Línea 1: | Línea 1: | ||
==Ejercicio 1== | ==Ejercicio 1== | ||
locate::String->String->Nat | locate::String->String->Nat | ||
locate s c = foldr (\t r1 -> if (t==c) then 1+r1 else r1) 0 s | locate s c = foldr (\t r1 -> if (t==c) then 1+r1 else r1) 0 s | ||
transpose::String->String->String | transpose::String->String->String | ||
transpose s1 s2 s3 = foldr (\c r1 -> (s1 !! (locate s2 c)) : r1) [] s3 | transpose s1 s2 s3 = foldr (\c r1 -> (s1 !! (locate s2 c)) : r1) [] s3 | ||
==Ejercicio 2== | ==Ejercicio 2== | ||
==Ejercicio 3== | ==Ejercicio 3== | ||
==Ejercicio 4== | ==Ejercicio 4== |
Revisión del 03:24 30 abr 2008
Ejercicio 1
locate::String->String->Nat locate s c = foldr (\t r1 -> if (t==c) then 1+r1 else r1) 0 s
transpose::String->String->String transpose s1 s2 s3 = foldr (\c r1 -> (s1 !! (locate s2 c)) : r1) [] s3