• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

joaoqalves

[Scheme] [Resolvido] Totoloto

3 mensagens neste tópico

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))))

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Danke :) , que parvoíce :)

0

Partilhar esta mensagem


Link 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