Metaxal

#lang scribble/manual
 
@(require scribble/core
          scribble/html-properties
          racket
          scribble/example)

@(define the-eval (make-base-eval))
@examples[#:eval the-eval #:hidden
          (require racket/string)]

Metaxal

#lang racket/gui
(require plot
         pict)

;;; Author: Laurent Orseau
;;; 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.

;;; See in particular this blog bost:
;;; https://alex-hhh.github.io/2019/09/map-snip.html#2019-09-08-map-snip-footnote-2-return

Metaxal

#lang racket/base
(require racket/future
         racket/flonum)

;;; Author: Laurent Orseau https://github.com/Metaxal
;;; 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.
;;;
;;; Based on the docs for racket/future,
;;; with one future per cpu

Metaxal

#lang racket/base
(require quickscript
         fmt ; needs to be installed first
         racket/class)

;;; Author: Laurent Orseau
;;; 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.

(script-help-string "Format the selection or the whole program using `fmt`")

Metaxal

#lang racket

#|

Save this file to "server-worker.rkt"
then run
$ time racket server-worker.rkt

Then toggle the commented expression in `read-msg` and again
$ time racket server-worker.rkt

Metaxal

Making a pull request for a main distribution package

BETTER: https://blog.racket-lang.org/2017/09/tutorial-contributing-to-racket.html#how-to-contribute-to-a-main-distribution-package

---

Say we want to modify the docs of errortrace, which is bundled with the main distribution. I assume the system is a Unix.

1. Install Racket from a binary as a local distribution, so you don't have to use sudo/root.

Metaxal

#lang racket

;; Allows for improper lists
(define (my-andmap proc l1 l2)
  (let loop ([l1 l1] [l2 l2])
    (cond [(and (null? l1) (null? l2)) #t]
          [(or (null? l1) (null? l2))
           (error "Lists must have the same length" (length l1) (length l2))]
          [(and (pair? l1) (pair? l2))
           (and (proc (car l1) (car l2))

Metaxal

#lang racket/base

(require quickscript
         racket/list
         racket/class
         framework
         racket/gui/base)

;;; Author: Laurent Orseau https://github.com/Metaxal
;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or

Metaxal

#lang racket/base

;;; Author: Laurent Orseau https://github.com/Metaxal
;;; 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.

;;; Requires `commonmark`

(require quickscript
         commonmark

Metaxal

#lang racket
(require plot)

(define (tlayout low high)
  (list
   ; major ticks: tick is shown with label
   (pre-tick pi #t)
   (pre-tick (sqrt 2) #t)
   (pre-tick 0.5 #t)
   ; minor ticks: tick is shown, but without label