Chubek

#!/usr/bin/racket
#lang racket

	(define directives '())
	(define bypasses '())

	(define declarations '())
	(define definitions '())

	(define (process-line line)

swatson555

#!/usr/bin/env scheme --script

(import (nanopass))

(define unique-var
  (let ()
    (define count 0)
    (lambda (name)
      (let ([c count])
        (set! count (+ count 1))

alex-hhh

#lang racket
(require math/array)
;; https://en.wikipedia.org/wiki/Conway's_Game_of_Life

;; These are the game rules for a single CELL which can be 1 (alive) or 0
;; dead.  NEIGHBOR-COUNT is the number of live neighbors the cell has.
(define (game-rules cell neighbor-count)
  (cond
    ;; Any live cell with fewer than two live neighbours dies, as if by
    ;; underpopulation.

soegaard

#lang at-exp racket
(require urlang urlang/html urlang/react/urx)
(require net/sendurl syntax/parse)

;;;
;;; Urlang Configuration
;;;

(current-urlang-run?                            #f) ; run using Node?              No, use browser
(current-urlang-echo?                           #t) ; print generated JavaScript?  

Metaxal

#lang racket/base

(require quickscript
         racket/class
         racket/gui/base
         string-constants)

;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or
;;;          [MIT license](http://opensource.org/licenses/MIT) at your option.

samdphillips

Rhombus Sheepdogs

This is an incomplete implementation of a sheep and sheepdog agent simulation in Rhombus.

NOTE The Rhombus proposal is not stable. This example should be considered a point in time example. I may or may not update this to reflect newer versions of the proposal.

samdphillips

Kicking the tires of Rhombus

NOTE The Rhombus proposal is not stable. This example should be considered a point in time example. I may or may not update this to reflect newer versions of the proposal.

2021/08/04

This is a translation of a kind of scraping script I've written in Racket.

Some notes:

samdphillips

#lang racket/base

(require ffi/unsafe
         ffi/unsafe/objc
         ffi/unsafe/nsstring
         gregor
         racket/match
         racket/sequence
         threading)

srcreigh

#lang racket/base
(require (for-syntax racket/base syntax/parse))

(define-syntax (error stx)
  (syntax-parse stx
    [(_ ...) (raise-syntax-error #f "This is an error." stx)]))

;; The following line will be highlighted in the IDE and say "This is an error."
;; in DrRacket or racket-xp-mode for emacs.
(error 'hi)

Metaxal

#lang racket/base

;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or
;;;          [MIT license](http://opensource.org/licenses/MIT) at your option.

(require quickscript
         quickscript/base
         racket/class
         racket/file
         racket/match