Metaxal

#lang racket/base

;;; From: https://github.com/Quickscript-Competiton/July2020entries/issues/9
;;; License: Apache 2/MIT

#|
    My first submitted Racket Quickscript

    (mostly a proof-of-concept, to try my hand at writing these)

Metaxal

(define map-global-function
  (let* ([km-global (keymap:get-global)]
         [table (for/hash ([name (in-list (dict-values (send km-global get-map-function-table)))])
                  (values name #t))])
    (λ (km key name)
      (unless (dict-has-key? table name)
        (error "Unknown function" name))
      (send km add-function name
            (λ (in ev)
              (send km-global call-function name in ev #t)))

Metaxal

#lang racket/base

;;; License: MIT/Apache2.0
;;;
;;; Stare at your code falling like rocks.

(require quickscript
         framework/preferences ; to disable syncheck
         racket/class
         racket/string)

Metaxal

#lang racket/base

;; License: Apache2.0/MIT

(require quickscript
         quickscript/base
         quickscript/library
         racket/gui/base
         racket/class
         racket/file

Metaxal

#!/usr/bin/racket
#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.

;; When installing a new version of Racket,
;; running this script setups all existing packages that had been installed
;; in the *user* scope.
;;

Metaxal

#lang racket/base
(require racket/gui/base
         racket/class
         quickscript)

;;; The default 'Tabs' menu in DrRacket lists only the first 10 tabs.
;;; This script displays all tabs, which is particularly convenient when
;;; there are many tabs and not all of them are visible.

(define-script all-tabs

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
         racket/format
         racket/class)

;; Like classify position, but gives the class of the character at the insert position,

Metaxal

#lang racket
(require racket/sandbox)

;; Make sure you have at least 4×max-memory available
;; otherwise your computer might freeze.
(define max-memory 1024)
(define a-tree #f)

;; with-limits should limit the memory use, but it fails in this case.
;; See below for an explanation.

Metaxal

#lang racket

(require plot)

(let ([blue '(0 0 164)] [red '(164 0 0)])
  (parameterize ([plot-decorations? #f])
    (plot3d
     (list
      (surface3d (λ(x y)(/ x 10)) 0 5 0 1 #:color red #:line-color red)
      (surface3d (λ(x y)(- 1 (/ (+ 1 (exp (- 5 x)))))) 0 10 0 1 #:color blue #:line-color blue))

Metaxal

#lang racket
(require data/heap)

;;; Not the most optimized version.

(define N 12)

(define (hanoi N)
  (define visited (make-hash))
  (define heap (make-heap (λ(a b) (<= (first a) (first b)))))