Ir para o conteúdo
joaoqalves

[Scheme] [Resolvido] Totoloto

Mensagens Recomendadas

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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade