Xlisp 3 via Lispcube on iOS

Discussion of other Lisp dialects (Arc, Clojure, AutoLisp, XLISP, etc.)

Xlisp 3 via Lispcube on iOS

Postby sennekuyl » Sat Jul 11, 2015 2:41 am

Hi.

I'm a novice at programming, and have been practicing on the go with Lispcube. Anyone else use this tool?

I've written my first (successful) program in any language with Lispcube, that is without sequential directions. Just the reference manual. It is a dice roll function. It's simple & rough, but I feel like an old school programmer. (Dunning-Kruger here we come?)

Code: Select all
;; File dice-roll.lsp

(define one 1) ;; magic number - to make the roll between 1 & n
(define four 4) ;; magic number
(define iterate 0)
(define rolled nil)

(define (roll &optional (dice-size four) (number-of-dice one))
   (while (< iterate number-of-dice)
      (display "ROLL ")
      (set! rolled (list (write (dice dice-size))))
      (newline)
      (set! iterate (+ iterate one))))

(define (dice dice-size)
   (+ one (random dice-size)))

(newline)
(newline)
(display "To roll a die, type (roll n n)")
(newline)
(display "where n are positive integers.")
(newline)
(newline)
(display "How many sides does your dice have?")
(define die (read))
(display "How many rolls?")
(define rolls (read))
(roll die rolls)
(newline)
sennekuyl
 
Posts: 1
Joined: Thu Jun 19, 2014 4:12 am

Return to Other Dialects

Who is online

Users browsing this forum: Bing [Bot] and 1 guest

cron