samdphillips

#lang racket/base

;; uses https://github.com/samdphillips/racket-syncvar

(require racket/contract
         racket/match
         "ivar.rkt")

(provide mcast-channel?
         mcast-output?

samdphillips

#lang racket/base

(require racket/exn
         racket/set
         "util.rkt")

(provide supervise)

(define-logger supervise)

samdphillips

#lang rhombus

import:
  racket/base
  racket/math:
    expose:
      pi

operator (m ** n):
  ~stronger_than: *

samdphillips

#lang cmark-scribble

# This is a test document

1 + 1 is **@+[1 1]**

samdphillips

#!/usr/bin/env racket
#lang rkshell

(require racket/date
         "service.rkt"
         "ssh.rkt")

(define-logger deploy)

(date-display-format 'iso-8601)

samdphillips

#lang racket/base

(require racket/match)

(define-logger ytdl)

(struct ytdl (thread req-ch rsp-ch))

(define (make-ytdl vid dir)
  (define args (list "--no-color" "-f" "bestaudio" "-w" "-o" (format "~a/vid.%(ext)s" dir) vid))

samdphillips

#lang racket/base

(require syncvar/mvar)

(provide make-barrier
         barrier-wait-evt
         barrier-wait
         log-barrier-info)

(define-logger barrier)

samdphillips

#lang racket

(require racket/draw)

(define (mandelbrot1 z c)
  (+ (* z z) c))

(define (escaped? z)
  (<= 2 (magnitude z)))

samdphillips

#lang racket/base

(require racket/place)

(define-logger guess)

(define num-workers (processor-count))
(define secret-number (random 10))

(define-values (manager-work-ch worker-work-ch) (place-channel))

samdphillips

#!/usr/bin/env racket
#lang racket

(require lens
         net/http-easy
         qi
         racket/date
         syntax/parse/define)

(current-print