master
Matthew Butterick 6 years ago
parent a74b2772b7
commit 6a29130006

@ -30,7 +30,7 @@
(strip-context #`(module mod MOD-PATH
#,@(for/list ([line (in-lines port)]
#:unless (blank? line))
(for/list ([datums (in-port read (open-input-string (string-replace line "," "")))])
(for/list ([datums (in-port read (open-input-string (string-replace line "," " ")))])
datums)))))
. ARGS)))

@ -0,0 +1,45 @@
#lang br/quicklang
(require "../helper.rkt")
(provide read-syntax (rename-out [#%mb #%module-begin]))
(define (read-syntax path port)
(define lines (port->lines port))
(strip-context #`(module mod "main.rkt"
#,@(for/list ([datum (in-port read (open-input-string (car lines)))])
datum)
#,@(cdr lines))))
(define-macro (#%mb STARS RANGE STR)
#`(#%module-begin
(set-knot-range! RANGE)
((if (eq? 'STARS ') one-star two-star) STR)))
(define (one-star str)
(for ([len (in-port read (open-input-string (string-replace str "," " ")))])
(reverse-segment len))
(* (vector-ref vec 0) (vector-ref vec 1)))
(define (two-star str)
(define ascii-chars (map char->integer (string->list str)))
(for* ([round (in-range 64)]
[len (in-list (append ascii-chars '(17 31 73 47 23)))])
(reverse-segment len))
(define dense-hash (for/list ([i (in-range 16)])
(apply bitwise-xor (for/list ([v (in-vector vec (* i 16) (* (add1 i) 16))])
v))))
(string-append* (for/list ([num (in-list dense-hash)])
(~r num #:base 16 #:min-width 2 #:pad-string "0"))))
(define vec #f)
(define current-position (make-parameter 0))
(define skip-size (make-parameter 0))
(define (set-knot-range! int) (set! vec (list->vector (range int))))
(define (reverse-segment len)
(define posns (for/list ([i (in-range len)])
(modulo (+ (current-position) i) (vector-length vec))))
(for ([val (in-list (map (curry vector-ref vec) posns))]
[posn (in-list (reverse posns))])
(vector-set! vec posn val))
(current-position (+ (current-position) len (skip-size)))
(skip-size (add1 (skip-size))))

@ -0,0 +1,2 @@
#lang reader "main.rkt" 256 ; 4144
165,1,255,31,87,52,24,113,0,91,148,254,158,2,73,153

@ -0,0 +1,2 @@
#lang reader "main.rkt" ★★ 256 ; "2f8c3d2100fdd57cec130d928b0fd2dd"
165,1,255,31,87,52,24,113,0,91,148,254,158,2,73,153

@ -0,0 +1,2 @@
#lang reader "main.rkt" 5
3, 4, 1, 5

@ -0,0 +1,2 @@
#lang reader "main.rkt" ★★ 256
1,2,3