Common Lispのクラスの比較(defstruct VS defclass) | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
(defstruct SPerson
    name
    age
)
(defclass CPerson()(
    (name :initarg  :name
          :accessor :name)
    (age  :initarg  :age)
))
(let (bob (n 10000000))
    (format t "~%(make-SPerson):~A~%" (setf bob (make-SPerson :name "Bob" :age 25)))
    (time(loop repeat n do (make-SPerson :name "Bob" :age 25)))
    (format t "~%(SPerson-name bob):~A~%" (SPerson-name bob))
    (time(loop repeat n do (SPerson-name bob)))
    (format t "~%(make-instance 'CPerson):~A~%" (setf bob (make-instance 'CPerson :name "Bob" :age 25)))
    (time(loop repeat n do (make-instance 'CPerson :name "Bob" :age 25)))
    (format t "~%(:name bob):~A~%" (:name bob))
    (time(loop repeat n do (:name bob)))
    (format t "~%(slot-value bob 'name):~A~%" (slot-value bob 'name))
    (time(loop repeat n do (slot-value bob 'name)))
)
(quit)
#|
(ClozureCL)
(make-SPerson):#S(SPERSON :NAME Bob :AGE 25)
(LOOP REPEAT N DO (MAKE-SPERSON :NAME "Bob" :AGE 25))
took 265,000 microseconds (0.265000 seconds) to run.
      12,300 microseconds (0.012300 seconds, 4.64%) of which was spent in GC.
During that period, and with 4 available CPU cores,
     234,375 microseconds (0.234375 seconds) were spent in user mode
           0 microseconds (0.000000 seconds) were spent in system mode
 320,000,064 bytes of memory allocated.
(SPerson-name bob):Bob
(LOOP REPEAT N DO (SPERSON-NAME BOB))
took  9,000 microseconds (0.009000 seconds) to run.
During that period, and with 4 available CPU cores,
     15,625 microseconds (0.015625 seconds) were spent in user mode
          0 microseconds (0.000000 seconds) were spent in system mode
 64 bytes of memory allocated.
(make-instance 'CPerson):#<CPERSON #x2100619C3D>
(LOOP REPEAT N DO (MAKE-INSTANCE 'CPERSON :NAME "Bob" :AGE 25))
took 6,937,000 microseconds (6.937000 seconds) to run.
        31,695 microseconds (0.031695 seconds, 0.46%) of which was spent in GC.
During that period, and with 4 available CPU cores,
     6,859,375 microseconds (6.859375 seconds) were spent in user mode
        15,625 microseconds (0.015625 seconds) were spent in system mode
 640,000,064 bytes of memory allocated.
(:name bob):Bob
(LOOP REPEAT N DO (:NAME BOB))
took 198,000 microseconds (0.198000 seconds) to run.
During that period, and with 4 available CPU cores,
     203,125 microseconds (0.203125 seconds) were spent in user mode
           0 microseconds (0.000000 seconds) were spent in system mode
 64 bytes of memory allocated.
(slot-value bob 'name):Bob
(LOOP REPEAT N DO (SLOT-VALUE BOB 'NAME))
took 134,000 microseconds (0.134000 seconds) to run.
During that period, and with 4 available CPU cores,
     125,000 microseconds (0.125000 seconds) were spent in user mode
           0 microseconds (0.000000 seconds) were spent in system mode
 64 bytes of memory allocated.
(SBCL)
(make-SPerson):#S(SPERSON :NAME Bob :AGE 25)
Evaluation took:
  0.153 seconds of real time
  0.156250 seconds of total run time (0.156250 user, 0.000000 system)
  [ Run times consist of 0.031 seconds GC time, and 0.126 seconds non-GC time. ]
  101.96% CPU
  487,882,134 processor cycles
  320,012,176 bytes consed
(SPerson-name bob):Bob
Evaluation took:
  0.009 seconds of real time
  0.000000 seconds of total run time (0.000000 user, 0.000000 system)
  0.00% CPU
  30,012,445 processor cycles
  0 bytes consed
(make-instance 'CPerson):#<CPERSON {1002A85623}>
Evaluation took:
  0.196 seconds of real time
  0.203125 seconds of total run time (0.203125 user, 0.000000 system)
  [ Run times consist of 0.016 seconds GC time, and 0.188 seconds non-GC time. ]
  103.57% CPU
  14 lambdas converted
  625,230,977 processor cycles
  640,351,952 bytes consed
(:name bob):Bob
Evaluation took:
  0.047 seconds of real time
  0.046875 seconds of total run time (0.046875 user, 0.000000 system)
  100.00% CPU
  150,816,650 processor cycles
  0 bytes consed
(slot-value bob 'name):Bob
Evaluation took:
  0.048 seconds of real time
  0.046875 seconds of total run time (0.046875 user, 0.000000 system)
  97.92% CPU
  149,533,983 processor cycles
  0 bytes consed
|#
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX