Número aleatório entre 1-N

; Exercicio 3 - Numeros aleatorios no intervalo [1; n]
; Exercício resolvido por: Rui Maia (deathseeker25@portugal-a-programar.org) 
; Crie um procedimento que origem a um numero aleatorio definido que se encontre
;no intervalo [1 , n]. 

(define aleatorio-1-n 
  (lambda (n)
    (random n)))  ; o procedimento random usa-se da forma random <argumento> onde argumento é um numero inteiro > 0...