jbclements

#lang rhombus

import:
  lib("2htdp/image.rkt") as img
  lib("racket/base.rkt")
  lib("lang/posn.rkt")

def make_color = img.#{make-color}
def empty_scene = img.#{empty-scene}
def posn = posn.#{make-posn}

jbclements

#lang racket/base

;; Generate a form email to let someone know their SPF records are misconfigured for their current email provider.
;;
;; Run (fill-report "domain.com" "1.2.3.4") where the 2nd arg is the sending email server's IP address.
;; It will copy the completed report to the clipboard for you.

;; Only works on Windows for now.

(require net/dns

jbclements

#lang racket

;; filter the lines in "installer-data" as indicated in the release
;; checklist.


;; filter out lines that match a predicate, report on the remaining set
(define (filter-out description pred l)
  (define new-l (filter (compose not pred) l))
  (printf "discarding these ~v:\n" description)

jbclements

#lang racket

(define last-str #f)

(struct node (l r))

(require rackunit)

(define (b-after-a? tree)
  (match tree

jbclements

#lang racket

(define last-str #f)


(define (b-after-a? tree)
  (match tree
    [(? string? s)
     (cond [(and (equal? s "b")
                 (equal? last-str "a"))

jbclements

#lang racket

(module sim-AQSE3.5 racket

  (provide
   (rename-out [lambda lam])
   #%module-begin
   #%app
   #%datum
   + - * / >= <= > <

jbclements

#lang racket


#;((define loop-maker
  (λ (loop-maker)
   (λ (n)
     (if (< n 17)
         ((loop-maker loop-maker) (+ n 1))
         n))))

jbclements

#lang racket

;; this module defines the sim-AQSE3 language, which
;; simulates AQSE3, by providing
;; only a few key forms from Racket. Specifically: lambda,
;; function calls, if, constants, and a few arithmetic
;; operators.
(module sim-AQSE3 racket
    (provide
     (rename-out [lambda lam]

jbclements

#lang typed/racket

(require typed/rackunit)

;; an S-expression is one of:
;; a number
;; a string
;; a boolean
;; a symbol, or
;; (list S-expression ...)

jbclements

#lang typed/racket

(require typed/rackunit)

;; an S-expression is one of:
;; a number
;; a string
;; a boolean
;; a symbol, or
;; (list S-expression ...)