[Resolvido] - Lisp -

[Brown. 1]

Estou com uma dúvida, não acho a lógica para resolver essa questão.

Se alguem puder ajudar, pode ser em outra linguagem.

 

 

 

Faça uma função que receba do teclado valores de mes e ano e responda se o mes tem 31, 30, 29, 28 dias. O mes de fevereiro de anos bissextos ( divisiveis por 4 ) tem 28 dias. Usar cond.

 

 

Conseguir ler só.

(defun calc()

{print ("digite o valor mes")

(setf a(read))

(print ("digite o valor ano")

(setf b(read))

(cond

[VictorCacciari 42]

Vou te dar um empurrãozinho... lisp é meio chato de aprender...

 

(defun calc()
	   (print "Digite o ano")
	   (setf ano(read))
	   (print "Digite o mes")
	   (setf mes(read))
	   (cond
	     ((= mes 1) (print "janeiro"))
	     ((= mes 2) (if (= (mod ano 4) 0)
			    (print "Fevereiro de ano bisexto.")
			    (print "Fevereiro")))))

[Brown. 1]

Vou te dar um empurrãozinho... lisp é meio chato de aprender...

 

(defun calc()
	   (print "Digite o ano")
	   (setf ano(read))
	   (print "Digite o mes")
	   (setf mes(read))
	   (cond
	     ((= mes 1) (print "janeiro"))
	     ((= mes 2) (if (= (mod ano 4) 0)
			    (print "Fevereiro de ano bisexto.")
			    (print "Fevereiro")))))

Entendi, ok.

 

Obs.: Em lisp resto da divisão é "rem".

[VictorCacciari 42]

mod e rem servem:

victor@matrix:~$ clisp
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.42 (2007-10-16) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2007

Type :h and hit Enter for context help.

[1]> (mod 12 5)
2
[2]> (rem 12 5)
2
[3]>