Metaxal

#lang racket/base
(require racket/flonum
         (only-in math/flonum flvector-sum) ; slow due to type/untype boundary
         racket/fixnum
         racket/future)

#;(#%declare #:unsafe) ; doesn't make much difference

(provide softmax-ref/unstable
         softmax-ref/stable)

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

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.

If you don't create symlinks, make sure you run the correct version of raco and friends below.

2. Create a pkgs directory somewhere and cd to it.

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