Skip to content

Instantly share code, notes, and snippets.

View pnwamk's full-sized avatar

Andrew Kent pnwamk

View GitHub Profile
12a13,157
> (module (lazy-snip-typed #%contract-defs-names) ....
> (require (for-template (submod "..")))
> (provide)
> '#<void>
> (begin-for-all
> (define #0=(.get-syntax-literal! pos)
> ....
> (let (((scope:0 (deserialize-scope 'module))
> (scope:1 (deserialize-scope 'module))
@pnwamk
pnwamk / broken.txt
Last active May 16, 2018 20:41
broken-programs
https://github.com/celskeggs/scribbles/blob/master/saving.rkt
digimon
phc-adt-lib/phc-adt$ PLTSTDERR=debug@tr-timing raco make tagged-structure-low-level.hl.rkt now segfaults after type checking
24c24
< #<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
---
> #<path:/Users/pnwamk/Repos/plt/dev/racket/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
45c45
< #<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
---
> #<path:/Users/pnwamk/Repos/plt/dev/racket/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
92c92
< #<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
(module vector ....
(require (lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(for-syntax
(lib "typed-racket/utils/redirect-contract.rkt")
(submod "." #%contract-defs-reference)))
(module vector ....
(require (lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(for-syntax
(lib "typed-racket/utils/redirect-contract.rkt")
(submod "." #%contract-defs-reference)))
(module vector ....
(require (lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(for-syntax
(lib "typed-racket/utils/redirect-contract.rkt")
(submod "." #%contract-defs-reference)))
("6.90.0.28" ("7329c226388681d07f9e26ca0cc05b3d5fb802f3"
. "05777cbeaa88817af30a64f8563c956f04c018e8") (collects #"plot" #"private"
#"common" #"type-doc.rkt") (collects #"plot" #"private" #"common" #"utils.rkt")
(collects #"plot" #"utils.rkt") (collects #"racket" #"base.rkt") (collects
#"racket" #"contract" #"parametric.rkt") (collects #"racket" #"list.rkt")
(collects #"racket" #"match.rkt") (collects #"racket" #"private" #"sort.rkt")
(collects #"racket" #"runtime-config.rkt") (collects #"racket"
#"runtime-path.rkt") (collects #"racket" #"sequence.rkt") (collects #"typed"
#"racket" #"base" #"lang" #"reader.rkt") (collects #"typed" #"racket"
#"base.rkt") (collects #"typed" #"racket" #"class.rkt") (collects
("6.90.0.27" ("7329c226388681d07f9e26ca0cc05b3d5fb802f3"
. "2ac6f4a0422fa89542ceaedd3b7ac875b299fc87") (collects #"math" #"base.rkt")
(collects #"math" #"bigfloat.rkt") (collects #"math" #"main.rkt") (collects
#"math" #"matrix.rkt") (collects #"math" #"number-theory.rkt") (collects #"math"
#"private" #"array" #"array-broadcast.rkt") (collects #"math" #"private"
#"array" #"array-constructors.rkt") (collects #"math" #"private" #"array"
#"array-fft.rkt") (collects #"math" #"private" #"array" #"array-indexing.rkt")
(collects #"math" #"private" #"array" #"array-parallel.rkt") (collects #"math"
#"private" #"array" #"array-print.rkt") (collects #"math" #"private" #"array"
#"array-sequence.rkt") (collects #"math" #"private" #"array"
(: quicksort! (-> (Vectorof Real) Void))
(define (quicksort! A)
(quicksort-helper! A 0 (- (vector-length A) 1)))
(: quicksort-helper! (-> ([A : (Vectorof Real)]
[lo : Natural]
[hi : Integer])
#:pre (A lo hi)
(and (<= lo (vector-length A))
(< hi (vector-length A)))
; C211 Lab 9
; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
; Exercise 1 Design a function farthest which accepts a posn
; and list of posn and uses either foldl or foldr to find the
; posn farthest from the given posn. You should use local to
; define a local helper function.
; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *