Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

joaoqalves

[Scheme] [Resolvido] Totoloto

Mensagens Recomendadas

joaoqalves

Boas pessoal, estou aqui com um pequeno problema no Scheme. É assim, supostamente tenho um progamazito escrito por mim para fazer chaves do totoloto, contudo a primeira função (recursiva) não funciona da maneira pretendida, visto só mostrar o primeiro número.

Aqui vai o código:

; esta fun,cao e' a que nao funciona
(define aposta
  (lambda (num)
    (if (positive? num)
        (begin
          (linha-aposta (- num (- num 1))))
          (aposta (- num 1)))))
        
    

(define linha-aposta
  (lambda (linha)
    (display "Numero ")
    (display linha)
    (display ": ")
    (display (tombola))
    (newline)))
    

(define tombola
  (lambda ()
    (+ 1 (random 49))))


Não peças ajuda por PM! A tua dúvida vai ter menos atenção do que se for postada na secção correcta do fórum!Queres estar na moda? Utiliza a pesquisa e evita criar um tópico desnecessário.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
joaoqalves

Tens um parentese mal fechado, o (aposta (- num 1)) deve ficar dentro do begin.

Danke :) , que parvoíce :)


Não peças ajuda por PM! A tua dúvida vai ter menos atenção do que se for postada na secção correcta do fórum!Queres estar na moda? Utiliza a pesquisa e evita criar um tópico desnecessário.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.