LISP sudoku

[fpfcarvalho]

(defun bloco (sudoku x y)

(loop repeat 3 for x from (* 3 (floor x 3))

        append (loop repeat 3 for y from (* 3 (floor y 3))                                                           

                      collect (aref sudoku y x))))

Nesta função, define-se a função bloco do sudoku. Gostaria que me alguem explicasse melhor aquele ciclo "loop", mais concretamente o que faz o "(* 3(floor x 3))".

Aguardo respostas.

😉

[pedrotuga]

viva

(* 3 (floor x 3))

o que aparece imediatamente apos o parentesis de abertura é a funcao que é chamada, os restantes termos sao argumentos e aparecem separados por espacos. Na tua pergunta comeste um espaco a o transcrever essa linha.

O qu isso faz é:

multiplica (daí o asterisco, o asterisco é multiplicacao) 3 por (floor x 3)

por sua vez, (floor x 3) é uma chamada à funcao "floor" com os argumentos x e 3. A funcao flor devolve o argumento mais baixo de todos.

Entao pondo isso tudo junto, o que essa linha faz é:

multiplica 3 por 3 ou por x, o mais baixo dos dois.

[fpfcarvalho]

ja percebi 😁

obrigadao 😉

ja agora

(defun numero_falta (lista)

  (loop for i from 1 to 9

        with resultado = '()

        finally (return resultado) do

        (unless (find i lista) (push i resultado))))

nesta função, onde e k se ve onde sao os numeros diferentes de 1 a 9 ??

[djthyrax]

unless (find i lista) (push i resultado)

[fpfcarvalho]

pois..

thanks 😉

[fpfcarvalho]

alguem me podia explicar o k faz a funçao "aref" em LISP??

se eu tiver (aref sudoku l c), o ke k isto significa?

[Warrior]

http://www.dca.ufrn.br/~adelardo/lisp/ - Secção 2.12

http://www.n-a-n-o.com/lisp/cmucl-tutorials/LISP-tutorial-16.html

Tinhas descoberto isto com uma pesquisa no google..

[fpfcarvalho]

http://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node159.html

eu tinha ido aqui, mas o que fiquei a perceber da funçao e k retorna os valores formados pela junçao dos elementos das linhas e das colunas.

so queria saber se era assim a definiçao correcta daquela parte de codigo.