Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update Microcontroladores.hs #14

Open
wants to merge 1 commit into
base: master
Choose a base branch
from

Conversation

javi147
Copy link

@javi147 javi147 commented May 11, 2018

3.5

@@ -98,6 +98,14 @@ debug = filter (not.aBug)
aBug :: Instruccion -> Bool
aBug f = (==0).sum.(++ [a.f $ xt8088]).(++ [b.f $ xt8088]).memoria.f $ xt8088

memoriaOrdenada :: Micro -> Bool
memoriaOrdenada (Micro (x:xs) a b pc e p)
| emptyMemo.memoria = true
Copy link
Owner

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Esta linea tiene 2 errores:

  1. memoria es una funcion que recibe un Micro y devuelve una lista, en este caso no le estas pasando ningun parametro.
  2. En el caso de que le pases un Micro tambien estaria mal porque emptyMemo recibe un Micro no una lista.

memoriaOrdenada :: Micro -> Bool
memoriaOrdenada (Micro (x:xs) a b pc e p)
| emptyMemo.memoria = true
| xs < ultimo x = memoriaOrdenada (Micro x a b pc e p)
Copy link
Owner

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Aca entiendo que lo que quisiste hacer es:
x < ultimo xs
de todas formas la funcion ultimo que definiste hace lo mismo que tail, si le queres dar un alias podrias hacer
ultimo = tail

El enunciado dice que las celdas de memoria tienen que ser menores o iguales, faltaria el caso de cuando son iguales.
ademas, en memoriaOrdenada estas comparando un elemento de la memoria con el siguiente, pero yo entiendo que hay que compararlo con todos los elementos que le siguen.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

None yet

2 participants