diff options
-rw-r--r-- | loot.lsp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/loot.lsp b/loot.lsp index 727f8f3..e5e9e81 100644 --- a/loot.lsp +++ b/loot.lsp @@ -1,13 +1,12 @@ ;;; Port of https://en.wikipedia.org/wiki/ModernPascal#Code_Sample[3]. -;;; And then to CL. ;;; I prefer my version. (defconstant +max-probability+ 1000) ;; Because this is a simple enum and not a full sum/product type, ;; I use symbols instead of CLOS. -(defconstant +loot-type+ (vector 'bloodstone 'copper 'emeraldite 'gold - 'heronite 'platinum 'shaownite 'silver - 'soranite 'umbrarite 'cobalt 'iron - 'nothing)) +(defconstant +loot-type+ #(bloodstone copper emeraldite gold + heronite platinum shadownite silver + soranite umbrarite cobalt iron + nothing)) (defclass <looter> () ((probabilities :accessor probabilities))) (defgeneric choose (self)) (defmethod choose ((self <looter>)) |