PasteRack.org
Paste # 14462
2023-11-18 18:19:24

Fork as a new paste.

Paste viewed 514 times.


Embed:

#lang racket
(define (outliers lon)
  (local
   [;; mean: (listof Num) -> Num
    (define (mean lon)
      (cond
       [(empty? lon) 0]
       [else (/ (+ (first lon) (mean (rest lon))) (length lon))]))
        
    ;; variance: (listof Num) -> Num
    (define (variance lon)
      (cond
       [(empty? lon) 0]
       [else (/ (+ (sqr (- (first lon) mean)) (variance (rest lon))) mean)]))]

    ;; term: (listof Num) -> Num
    (define (term lon) (sqr (- (first lon) mean)))]

  (cond
    [(empty? lon) empty]
    [(> term variance) (cons (first lon) (rest term))]
    [else (rest outliers)])))

=>

#<syntax:/home/pasterack/pasterack/tmp/14462/14462code.scrbl:5:0 "#lang racket">:17:50: read-syntax: expected `)` to close `(` on line 3, found instead `]`
  possible cause: indentation suggests a missing `)` before line 4
  context...:
   /home/pasterack/racket88/collects/syntax/module-reader.rkt:214:17: body
   /home/pasterack/racket88/collects/syntax/module-reader.rkt:211:2: wrap-internal
   /home/pasterack/racket88/collects/racket/../syntax/module-reader.rkt:76:9: wrap-internal/wrapper
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:138:19: loop
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code
   body of "/home/pasterack/pasterack/tmp/14462/14462code.scrbl"
   .../private/map.rkt:40:19: loop
   .../racket/cmdline.rkt:191:51
   body of "/home/pasterack/racket88/share/pkgs/scribble-lib/scribble/run.rkt"