PasteRack.org
Paste # 22021
2025-02-19 10:34:46

Fork as a new paste.

Paste viewed 61 times.


Embed:

Tr

#lang racket
(define (min)
(current-posix-seconds)
(define (gcd n a)
(cond ((> (* a a) n) n)
           ((= (remainder n a) 0) a)
           (else (gcd n (+ a 1)))))
(define (prmctr n c e)
(if (> c 0)
        (cond ((= (gcd n 2) n)
                                        (display n)
                                        (newline)
                                        (prmctr (+ n 2) (- c 1) e))
                    (else (prmctr (+ n 1) c e)))
        (display (- (min) e))))
(define (prt n c)
(prmctr n c (min)))

=>

#<syntax:/home/pasterack/pasterack/tmp/22021/22021code.scrbl:5:0 "#lang racket">:2:0: read-syntax: expected a `)` to close `(`
  possible cause: indentation suggests a missing `)` before line 3
  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/22021/22021code.scrbl"
   .../private/map.rkt:40:19: loop
   .../racket/cmdline.rkt:191:51
   body of "/home/pasterack/racket88/share/pkgs/scribble-lib/scribble/run.rkt"