bakgatviooldoos

#lang racket

(require
  racket/gui mrlib/gif pict)

(define (fourier-sample θ zs)
  (for/sum ([(z t) (in-indexed (in-list zs))])
    (* z (exp (* t θ)))))

; discrete forward fourier transform

bakgatviooldoos

#lang info

(define collection "knitting")
(define deps       '("base" "threading"))
(define build-deps '("rackunit-lib"))

bakgatviooldoos

#lang racket

(require (for-syntax
          syntax/parse
          syntax/parse/lib/function-header
          racket/syntax
          (only-in
           racket/list make-list)))

(provide choose)

bakgatviooldoos

#lang racket

(require racket/generic)

;; adapted from:
;; https://eli.thegreenplace.net/2010/01/02/top-down-operator-precedence-parsing/

;; left-binding power property
(define-values (prop:lbp has-lbp? lbp)
  (make-struct-type-property/generic