Random numbers: Difference between revisions
Content added Content deleted
Line 1,080: | Line 1,080: | ||
;; Email : <calmosoft@gmail.com |
;; Email : <calmosoft@gmail.com |
||
(format t "~a" "Random numbers between 1 and 10") |
(format t "~a" "Random numbers between 1 and 10") |
||
(dotimes (n 10) |
(dotimes (n 10) |
||
(if (< n 1) (terpri)) |
(if (< n 1) (terpri)) |
||
(if (< n 9) (format t "~a" " ")) |
(if (< n 9) (format t "~a" " ")) |
||
(write(+ n 1)) (format t "~a" ": ") |
(write(+ n 1)) (format t "~a" ": ") |
||
(write(+ 1 (random 9))) (terpri)) |
(write(+ 1 (random 9))) (terpri)) |
||
</lang> |
</lang> |
||
Output: |
Output: |