Skip to content

Instantly share code, notes, and snippets.

@shirok

shirok/d.scm

Created February 7, 2018 23:29
Show Gist options
  • Save shirok/39d4a9939266d3ffb1f8a670b1b66260 to your computer and use it in GitHub Desktop.
Save shirok/39d4a9939266d3ffb1f8a670b1b66260 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
d.scm
(define-library (d)
(import (scheme base))
(begin
(define-values (a$1 b$1 c$1 d$1 e$1 f$1 g$1 h$1
i$1 j$1 k$1 l$1 m$1 n$1 o$1 p$1
q$1 r$1 s$1)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$2 b$2 c$2 d$2 e$2 f$2 g$2 h$2
i$2 j$2 k$2 l$2 m$2 n$2 o$2 p$2
q$2 r$2 s$2)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$3 b$3 c$3 d$3 e$3 f$3 g$3 h$3
i$3 j$3 k$3 l$3 m$3 n$3 o$3 p$3
q$3 r$3 s$3)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$4 b$4 c$4 d$4 e$4 f$4 g$4 h$4
i$4 j$4 k$4 l$4 m$4 n$4 o$4 p$4
q$4 r$4 s$4)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$5 b$5 c$5 d$5 e$5 f$5 g$5 h$5
i$5 j$5 k$5 l$5 m$5 n$5 o$5 p$5
q$5 r$5 s$5)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$6 b$6 c$6 d$6 e$6 f$6 g$6 h$6
i$6 j$6 k$6 l$6 m$6 n$6 o$6 p$6
q$6 r$6 s$6)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$7 b$7 c$7 d$7 e$7 f$7 g$7 h$7
i$7 j$7 k$7 l$7 m$7 n$7 o$7 p$7
q$7 r$7 s$7)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$8 b$8 c$8 d$8 e$8 f$8 g$8 h$8
i$8 j$8 k$8 l$8 m$8 n$8 o$8 p$8
q$8 r$8 s$8)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$9 b$9 c$9 d$9 e$9 f$9 g$9 h$9
i$9 j$9 k$9 l$9 m$9 n$9 o$9 p$9
q$9 r$9 s$9)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$10 b$10 c$10 d$10 e$10 f$10 g$10 h$10
i$10 j$10 k$10 l$10 m$10 n$10 o$10 p$10
q$10 r$10 s$10)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$11 b$11 c$11 d$11 e$11 f$11 g$11 h$11
i$11 j$11 k$11 l$11 m$11 n$11 o$11 p$11
q$11 r$11 s$11)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$12 b$12 c$12 d$12 e$12 f$12 g$12 h$12
i$12 j$12 k$12 l$12 m$12 n$12 o$12 p$12
q$12 r$12 s$12)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$13 b$13 c$13 d$13 e$13 f$13 g$13 h$13
i$13 j$13 k$13 l$13 m$13 n$13 o$13 p$13
q$13 r$13 s$13)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$14 b$14 c$14 d$14 e$14 f$14 g$14 h$14
i$14 j$14 k$14 l$14 m$14 n$14 o$14 p$14
q$14 r$14 s$14)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$15 b$15 c$15 d$15 e$15 f$15 g$15 h$15
i$15 j$15 k$15 l$15 m$15 n$15 o$15 p$15
q$15 r$15 s$15)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$16 b$16 c$16 d$16 e$16 f$16 g$16 h$16
i$16 j$16 k$16 l$16 m$16 n$16 o$16 p$16
q$16 r$16 s$16)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$17 b$17 c$17 d$17 e$17 f$17 g$17 h$17
i$17 j$17 k$17 l$17 m$17 n$17 o$17 p$17
q$17 r$17 s$17)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$18 b$18 c$18 d$18 e$18 f$18 g$18 h$18
i$18 j$18 k$18 l$18 m$18 n$18 o$18 p$18
q$18 r$18 s$18)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$19 b$19 c$19 d$19 e$19 f$19 g$19 h$19
i$19 j$19 k$19 l$19 m$19 n$19 o$19 p$19
q$19 r$19 s$19)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
(define-values (a$20 b$20 c$20 d$20 e$20 f$20 g$20 h$20
i$20 j$20 k$20 l$20 m$20 n$20 o$20 p$20
q$20 r$20 s$20)
(values 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment