ホーム - DQX

木工 ダメージ一覧¶

#!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)

実行結果：

順目 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)