Skip to content

Instantly share code, notes, and snippets.

@bdeket
bdeket / htdp-with-websocket.rkt
Last active March 26, 2026 03:28
Universe/world with webracket
#lang racket/base
(require racket/match
(file "htdp/htdp-lib/2htdp/image.rkt")
(file "htdp/htdp-lib/2htdp/universe.rkt")
(except-in (file "htdp/htdp-lib/2htdp/private/check-aux.rkt") sexp?)
;; ^^ my websocket branch : https://github.com/bdeket/htdp/tree/websocket
net/rfc6455
net/url
net/head
#lang typed/racket/base
(require images/flomap
(only-in math/flonum flvector flvector-length make-flvector flvector-set! flhypot fl)
(only-in racket/flonum in-flvector)
racket/math
typed/racket/class
(only-in typed/racket/draw bitmap%))
(provide (except-out (all-defined-out)
#lang typed/racket/base
(require typed/racket/draw typed/racket/class
typed/pict
"../common/type-doc.rkt"
"../common/types.rkt"
"../common/draw.rkt"
"../common/parameters.rkt"
"../common/parameter-groups.rkt"
"../common/parameter-group.rkt"
@bdeket
bdeket / log1p.decompiled
Last active October 5, 2020 11:14
fllog1p
;; decompiled function
(define-values
(fllog1p*3)
(lambda (arg0-901)
'#(fllog1p*3
#<path:/run/media/bert/RONIN/Documents/prog/racket/test/fl-function-tester/log1p.rkt>
138
4
5178
2434