DQX

[ホーム](https://redmine.noppi.jp) - [[Wiki|DQX]]

# [[木工 ダメージ一覧]]

``` scheme

#!r6rs

#!chezscheme

(import (chezscheme))

(define (make-sequence n1 n2)

  (let loop ([current n2]

             [lis '()])

    (if (< current n1)

      lis

      (loop (- current 1) (cons current lis)))))

(define jun-normal (make-sequence 12 18))

(define jun-2bai (map (lambda (x) (* x 2)) jun-normal))

(define jun-3bai (map (lambda (x) (* x 3)) jun-normal))

#;(define jun-0.8 (map (lambda (x) (+ (div (* x 4) 5) 1)) jun-normal))

(define jun-0.8

  (map (lambda (x) (+ (exact (floor (* x 0.8))) 1)) jun-normal))

(define jun-1.4 (map (lambda (x) (exact (ceiling (* x 1.4)))) jun-normal))

(define jun-1.1 (map (lambda (x) (exact (ceiling (* x 1.1)))) jun-normal))

(define jun-kanna (make-sequence 5 8))

(define (make-gyaku n) (exact (ceiling (* n 0.5))))

(define gyaku-normal (map make-gyaku jun-normal))

(define gyaku-2bai (map make-gyaku jun-2bai))

(define gyaku-3bai (map make-gyaku jun-3bai))

(define gyaku-0.8 (map make-gyaku jun-0.8))

(define gyaku-1.4 (map make-gyaku jun-1.4))

(define gyaku-1.1 (map make-gyaku jun-1.1))

(define gyaku-kanna (map make-gyaku jun-kanna))

#;(define (make-kusabi n) (+ (div (* n 8) 5) 1))

(define (make-kusabi n) (+ (exact (floor (* n 1.6))) 1))

(define kusabi-jun-normal (map make-kusabi jun-normal))

(define kusabi-jun-2bai (map make-kusabi jun-2bai))

(define kusabi-jun-3bai (map make-kusabi jun-3bai))

(define kusabi-jun-0.8 (map make-kusabi jun-0.8))

(define kusabi-jun-1.4 (map make-kusabi jun-1.4))

(define kusabi-jun-1.1 (map make-kusabi jun-1.1))

(define kusabi-jun-kanna (map make-kusabi jun-kanna))

(define kusabi-gyaku-normal (map make-gyaku kusabi-jun-normal))

(define kusabi-gyaku-2bai (map make-gyaku kusabi-jun-2bai))

(define kusabi-gyaku-3bai (map make-gyaku kusabi-jun-3bai))

(define kusabi-gyaku-0.8 (map make-gyaku kusabi-jun-0.8))

(define kusabi-gyaku-1.4 (map make-gyaku kusabi-jun-1.4))

(define kusabi-gyaku-1.1 (map make-gyaku kusabi-jun-1.1))

(define kusabi-gyaku-kanna (map make-gyaku kusabi-jun-kanna))

(define saisei (map - (make-sequence 12 16)))

(define moe (make-sequence 4 6))

(define (enum-range lis1 lis2)

  (let loop ([lis2 lis2]

             [result '()])

    (if (null? lis2)

      (sort < result)

      (let loop2 ([lis1 lis1]

                  [result result])

        (if (null? lis1)

          (loop (cdr lis2) result)

          (loop2

            (cdr lis1)

            (cons (+ (car lis1) (car lis2)) result)))))))

(define moe-jun-normal (enum-range moe jun-normal))

(define moe-jun-2bai (enum-range moe jun-2bai))

(define moe-jun-3bai (enum-range moe jun-3bai))

(define moe-jun-0.8 (enum-range moe jun-0.8))

(define moe-jun-1.4 (enum-range moe jun-1.4))

(define moe-jun-1.1 (enum-range moe jun-1.1))

(define moe-jun-kanna (enum-range moe jun-kanna))

(define moe-gyaku-normal (enum-range moe gyaku-normal))

(define moe-gyaku-2bai (enum-range moe gyaku-2bai))

(define moe-gyaku-3bai (enum-range moe gyaku-3bai))

(define moe-gyaku-0.8 (enum-range moe gyaku-0.8))

(define moe-gyaku-1.4 (enum-range moe gyaku-1.4))

(define moe-gyaku-1.1 (enum-range moe gyaku-1.1))

(define moe-gyaku-kanna (enum-range moe gyaku-kanna))

(define moe-kusabi-jun-normal (enum-range moe kusabi-jun-normal))

(define moe-kusabi-jun-2bai (enum-range moe kusabi-jun-2bai))

(define moe-kusabi-jun-3bai (enum-range moe kusabi-jun-3bai))

(define moe-kusabi-jun-0.8 (enum-range moe kusabi-jun-0.8))

(define moe-kusabi-jun-1.4 (enum-range moe kusabi-jun-1.4))

(define moe-kusabi-jun-1.1 (enum-range moe kusabi-jun-1.1))

(define moe-kusabi-jun-kanna (enum-range moe kusabi-jun-kanna))

(define moe-kusabi-gyaku-normal (enum-range moe kusabi-gyaku-normal))

(define moe-kusabi-gyaku-2bai (enum-range moe kusabi-gyaku-2bai))

(define moe-kusabi-gyaku-3bai (enum-range moe kusabi-gyaku-3bai))

(define moe-kusabi-gyaku-0.8 (enum-range moe kusabi-gyaku-0.8))

(define moe-kusabi-gyaku-1.4 (enum-range moe kusabi-gyaku-1.4))

(define moe-kusabi-gyaku-1.1 (enum-range moe kusabi-gyaku-1.1))

(define moe-kusabi-gyaku-kanna (enum-range moe kusabi-gyaku-kanna))

(define (display-oneline str lis)

  (display str)

  (display " : ")

  (display lis)

  (newline))

(display-oneline "順目 3倍彫り" jun-3bai)

(display-oneline "順目 2倍彫り" jun-2bai)

(display-oneline "順目 けずる" jun-normal)

(display-oneline "順目 流星 右上" jun-0.8)

(display-oneline "順目 流星 左下" jun-1.4)

(display-oneline "順目 大昇竜 中央" jun-1.1)

(display-oneline "順目 カンナ" jun-kanna)

(newline)

(display-oneline "逆目 3倍彫り" gyaku-3bai)

(display-oneline "逆目 2倍彫り" gyaku-2bai)

(display-oneline "逆目 けずる" gyaku-normal)

(display-oneline "逆目 流星 右上" gyaku-0.8)

(display-oneline "逆目 流星 左下" gyaku-1.4)

(display-oneline "逆目 大昇竜 中央" gyaku-1.1)

(display-oneline "逆目 カンナ" gyaku-kanna)

(newline)

(display-oneline "くさび 順目 3倍彫り" kusabi-jun-3bai)

(display-oneline "くさび 順目 2倍彫り" kusabi-jun-2bai)

(display-oneline "くさび 順目 けずる" kusabi-jun-normal)

(display-oneline "くさび 順目 流星 右上" kusabi-jun-0.8)

(display-oneline "くさび 順目 流星 左下" kusabi-jun-1.4)

(display-oneline "くさび 順目 大昇竜 中央" kusabi-jun-1.1)

(display-oneline "くさび 順目 カンナ" kusabi-jun-kanna)

(newline)

(display-oneline "くさび 逆目 3倍彫り" kusabi-gyaku-3bai)

(display-oneline "くさび 逆目 2倍彫り" kusabi-gyaku-2bai)

(display-oneline "くさび 逆目 けずる" kusabi-gyaku-normal)

(display-oneline "くさび 逆目 流星 右上" kusabi-gyaku-0.8)

(display-oneline "くさび 逆目 流星 左下" kusabi-gyaku-1.4)

(display-oneline "くさび 逆目 大昇竜 中央" kusabi-gyaku-1.1)

(display-oneline "くさび 逆目 カンナ" kusabi-gyaku-kanna)

(newline)

(display-oneline "燃え 順目 3倍彫り" moe-jun-3bai)

(display-oneline "燃え 順目 2倍彫り" moe-jun-2bai)

(display-oneline "燃え 順目 けずる" moe-jun-normal)

(display-oneline "燃え 順目 流星 右上" moe-jun-0.8)

(display-oneline "燃え 順目 流星 左下" moe-jun-1.4)

(display-oneline "燃え 順目 大昇竜 中央" moe-jun-1.1)

(display-oneline "燃え 順目 カンナ" moe-jun-kanna)

(newline)

(display-oneline "燃え 逆目 3倍彫り" moe-gyaku-3bai)

(display-oneline "燃え 逆目 2倍彫り" moe-gyaku-2bai)

(display-oneline "燃え 逆目 けずる" moe-gyaku-normal)

(display-oneline "燃え 逆目 流星 右上" moe-gyaku-0.8)

(display-oneline "燃え 逆目 流星 左下" moe-gyaku-1.4)

(display-oneline "燃え 逆目 大昇竜 中央" moe-gyaku-1.1)

(display-oneline "燃え 逆目 カンナ" moe-gyaku-kanna)

(newline)

(display-oneline "燃え くさび 順目 3倍彫り" moe-kusabi-jun-3bai)

(display-oneline "燃え くさび 順目 2倍彫り" moe-kusabi-jun-2bai)

(display-oneline "燃え くさび 順目 けずる" moe-kusabi-jun-normal)

(display-oneline "燃え くさび 順目 流星 右上" moe-kusabi-jun-0.8)

(display-oneline "燃え くさび 順目 流星 左下" moe-kusabi-jun-1.4)

(display-oneline "燃え くさび 順目 大昇竜 中央" moe-kusabi-jun-1.1)

(display-oneline "燃え くさび 順目 カンナ" moe-kusabi-jun-kanna)

(newline)

(display-oneline "燃え くさび 逆目 3倍彫り" moe-kusabi-gyaku-3bai)

(display-oneline "燃え くさび 逆目 2倍彫り" moe-kusabi-gyaku-2bai)

(display-oneline "燃え くさび 逆目 けずる" moe-kusabi-gyaku-normal)

(display-oneline "燃え くさび 逆目 流星 右上" moe-kusabi-gyaku-0.8)

(display-oneline "燃え くさび 逆目 流星 左下" moe-kusabi-gyaku-1.4)

(display-oneline "燃え くさび 逆目 大昇竜 中央" moe-kusabi-gyaku-1.1)

(display-oneline "燃え くさび 逆目 カンナ" moe-kusabi-gyaku-kanna)

(newline)

(display-oneline "燃え 固め彫り" moe)

(newline)

```

実行結果：

``` text

順目 3倍彫り : (36 39 42 45 48 51 54)

順目 2倍彫り : (24 26 28 30 32 34 36)

順目 けずる : (12 13 14 15 16 17 18)

順目 流星 右上 : (10 11 12 13 13 14 15)

順目 流星 左下 : (17 19 20 21 23 24 26)

順目 大昇竜 中央 : (14 15 16 17 18 19 20)

順目 カンナ : (5 6 7 8)

逆目 3倍彫り : (18 20 21 23 24 26 27)

逆目 2倍彫り : (12 13 14 15 16 17 18)

逆目 けずる : (6 7 7 8 8 9 9)

逆目 流星 右上 : (5 6 6 7 7 7 8)

逆目 流星 左下 : (9 10 10 11 12 12 13)

逆目 大昇竜 中央 : (7 8 8 9 9 10 10)

逆目 カンナ : (3 3 4 4)

くさび 順目 3倍彫り : (58 63 68 73 77 82 87)

くさび 順目 2倍彫り : (39 42 45 49 52 55 58)

くさび 順目 けずる : (20 21 23 25 26 28 29)

くさび 順目 流星 右上 : (17 18 20 21 21 23 25)

くさび 順目 流星 左下 : (28 31 33 34 37 39 42)

くさび 順目 大昇竜 中央 : (23 25 26 28 29 31 33)

くさび 順目 カンナ : (9 10 12 13)

くさび 逆目 3倍彫り : (29 32 34 37 39 41 44)

くさび 逆目 2倍彫り : (20 21 23 25 26 28 29)

くさび 逆目 けずる : (10 11 12 13 13 14 15)

くさび 逆目 流星 右上 : (9 9 10 11 11 12 13)

くさび 逆目 流星 左下 : (14 16 17 17 19 20 21)

くさび 逆目 大昇竜 中央 : (12 13 13 14 15 16 17)

くさび 逆目 カンナ : (5 5 6 7)

燃え 順目 3倍彫り : (40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60)

燃え 順目 2倍彫り : (28 29 30 30 31 32 32 33 34 34 35 36 36 37 38 38 39 40 40 41 42)

燃え 順目 けずる : (16 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 24)

燃え 順目 流星 右上 : (14 15 15 16 16 16 17 17 17 17 18 18 18 18 19 19 19 19 20 20 21)

燃え 順目 流星 左下 : (21 22 23 23 24 24 25 25 25 26 26 27 27 28 28 29 29 30 30 31 32)

燃え 順目 大昇竜 中央 : (18 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 26)

燃え 順目 カンナ : (9 10 10 11 11 11 12 12 12 13 13 14)

燃え 逆目 3倍彫り : (22 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33)

燃え 逆目 2倍彫り : (16 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 24)

燃え 逆目 けずる : (10 11 11 11 12 12 12 12 12 13 13 13 13 13 13 14 14 14 14 15 15)

燃え 逆目 流星 右上 : (9 10 10 10 11 11 11 11 11 11 12 12 12 12 12 12 13 13 13 13 14)

燃え 逆目 流星 左下 : (13 14 14 14 15 15 15 15 16 16 16 16 16 17 17 17 17 18 18 18 19)

燃え 逆目 大昇竜 中央 : (11 12 12 12 13 13 13 13 13 14 14 14 14 14 14 15 15 15 15 16 16)

燃え 逆目 カンナ : (7 7 8 8 8 8 9 9 9 9 10 10)

燃え くさび 順目 3倍彫り : (62 63 64 67 68 69 72 73 74 77 78 79 81 82 83 86 87 88 91 92 93)

燃え くさび 順目 2倍彫り : (43 44 45 46 47 48 49 50 51 53 54 55 56 57 58 59 60 61 62 63 64)

燃え くさび 順目 けずる : (24 25 25 26 26 27 27 28 29 29 30 30 31 31 32 32 33 33 34 34 35)

燃え くさび 順目 流星 右上 : (21 22 22 23 23 24 24 25 25 25 26 26 26 27 27 27 28 29 29 30 31)

燃え くさび 順目 流星 左下 : (32 33 34 35 36 37 37 38 38 39 39 40 41 42 43 43 44 45 46 47 48)

燃え くさび 順目 大昇竜 中央 : (27 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 37 37 38 39)

燃え くさび 順目 カンナ : (13 14 14 15 15 16 16 17 17 18 18 19)

燃え くさび 逆目 3倍彫り : (33 34 35 36 37 38 38 39 40 41 42 43 43 44 45 45 46 47 48 49 50)

燃え くさび 逆目 2倍彫り : (24 25 25 26 26 27 27 28 29 29 30 30 31 31 32 32 33 33 34 34 35)

燃え くさび 逆目 けずる : (14 15 15 16 16 16 17 17 17 17 18 18 18 18 19 19 19 19 20 20 21)

燃え くさび 逆目 流星 右上 : (13 13 14 14 14 15 15 15 15 15 16 16 16 16 17 17 17 17 18 18 19)

燃え くさび 逆目 流星 左下 : (18 19 20 20 21 21 21 22 22 22 23 23 23 24 24 25 25 25 26 26 27)

燃え くさび 逆目 大昇竜 中央 : (16 17 17 17 18 18 18 18 19 19 19 19 20 20 20 21 21 21 22 22 23)

燃え くさび 逆目 カンナ : (9 9 10 10 10 11 11 11 11 12 12 13)

燃え 固め彫り : (4 5 6)

```