All pastes #193334 Raw Edit

Something

public text v1 · immutable
·published 2006-10-06 19:48 UTC
rendered paste body
eliminarArtistaT :: Teatro -> Nombre -> Teatro
aliminarArtistaT teatrin@(Tea sls funs acts ss es) artista = (Tea sls func artistaQuitado sueldoQuitado es)
where 
artistaQuitado = (sacarElementoN (pos artista elencoT  teatrin) acts)
sueldoQuitado = (sacarElementoN  (pos artista elencoT  teatrin) ss)