PasteRack.org
Paste # 59098
2019-11-16 17:10:58

Fork as a new paste.

Paste viewed 596 times.


Embed:

  1. #lang typed/racket
  2.  
  3. (define (roll-health : Positive-Integer [dN : Positive-Integer] [cmod : Positive-Integer] [level : (Refine [n : Integer] (>= n 2))])
  4.   (+ dN cmod
  5.      (for/sum : Positive-Integer ([i (- level 1)])
  6.        (+ cmod (max
  7.                     (add1 (random dN))
  8.                     (add1 (quotient dN 2)))))))

=>

eval:2.0: for/sum: expected for clauses or expected the

identifier `:'

  at: :

  in: (for/sum : Positive-Integer ((i (- level 1))) (+ cmod

(max (add1 (random dN)) (add1 (quotient dN 2)))))

  parsing context:

   while parsing different things...