From 834b16851be2d52f397dfc42c6e6b73b0188c692 Mon Sep 17 00:00:00 2001 From: Daniel Santos Date: Thu, 12 Jan 2023 12:17:36 +0000 Subject: remove plus with string functions --- plus.lisp | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/plus.lisp b/plus.lisp index 03a347d..1b534b1 100644 --- a/plus.lisp +++ b/plus.lisp @@ -23,14 +23,6 @@ "Given a list of the symbols of a number (which can have letters), it returns the symbol of this number" (intern (apply #'concatenate 'string (mapcar #'symbol-name number)))) -(defun explode-string (string) - "Given a string of a number (which can have letters), it returns a list of strings of the number" - (loop for letter across string collect (string letter))) - -(defun implode-string (string) - "Given a list of strings of a number (which can have letters), it returns the string of this number" - (apply #'concatenate 'string string)) - (defun next-list-number (numerals number-list) "Given a list of a numeral system and a list of a number, it returns a list of the next number." (cond @@ -77,10 +69,6 @@ "Given a list of a numeral system and 2 numbers, it returns the list of it's sum." (may-reverse (plus-args-list numerals (may-reverse (explode-to-symbol a)) (may-reverse (explode-to-symbol b))))) -(defun plus-string (numerals a b) - "Given a list of a numeral system and 2 strings, it returns the list of it's sum." - (may-reverse (plus-args-list numerals (may-reverse (explode-string a)) (may-reverse (explode-string b))))) - (defun symbol-to-number (symbol) "Given a symbol, returns it's number." (nth-value 0 (parse-integer (symbol-name symbol)))) -- cgit 1.4.1-2-gfad0 t&id=764b5726df62310522de19ad8d4a74a5756c3dbb'>blame commit diff stats
path: root/html/027call_ingredient.cc.html
blob: aaf0a2fc65ba3966aaeb0981ae888dc518bc65ea (plain) (tree) 
672e3e50 ^




32b8fac2 ^

c762564b ^

a654e4ec ^

672e3e50 ^

e5c11a51 ^

ac07e589 ^

672e3e50 ^


ac07e589 ^


08a0eed6 ^

e4ac3c9e ^

c762564b ^

ac07e589 ^


805d58c6 ^

ac07e589 ^






672e3e50 ^


a654e4ec ^




e5c11a51 ^























a654e4ec ^


672e3e50 ^

e5c11a51 ^

e4ac3c9e ^

a654e4ec ^

204dae92 ^




201458e3 ^

204dae92 ^









201458e3 ^

204dae92 ^















2c678a4e ^

c0f84b1f ^

204dae92 ^


c0f84b1f ^

204dae92 ^






e4ac3c9e ^


4a48bedc ^



e4ac3c9e ^

805d58c6 ^

4a48bedc ^





e4ac3c9e ^

c0f84b1f ^

805d58c6 ^






e4ac3c9e ^

805d58c6 ^



104e521c ^

805d58c6 ^







4a48bedc ^


805d58c6 ^

e4ac3c9e ^

805d58c6 ^





4a48bedc ^












1a4de9dd ^

4a48bedc ^



















e4ac3c9e ^


4a48bedc ^






c0f84b1f ^

4a48bedc ^



5fe060d5 ^
















e4ac3c9e ^


5fe060d5 ^



e4ac3c9e ^

5fe060d5 ^



e4ac3c9e ^

5fe060d5 ^































e4ac3c9e ^

5fe060d5 ^



e4ac3c9e ^

5fe060d5 ^


e4ac3c9e ^

5fe060d5 ^


672e3e50 ^



a654e4ec ^

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
122

123

124
125
126

127

128
129
130
131
132
133
134

135
136

137

138

139
140
141
142
143

144
145
146
147
148
149
150
151
152
153
154
155

156

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175

176
177

178
179
180
181
182
183

184

185
186
187

188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203

204
205

206
207
208

209

210
211
212

213

214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244

245

246
247
248

249

250
251

252

253
254

255
256
257

258