|
36 | 36 | '2 + 3*a == StringStream["Tengo una vaca lechera"]', |
37 | 37 | ), |
38 | 38 | ("-Infinity==I", "False"), |
39 | | - ( |
| 39 | + ( |
| 40 | + "Infinity==Compile[{x},Sqrt[x]]", |
40 | 41 | "Infinity==Compile[{x},Sqrt[x]]", |
41 | | - "Infinity == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
42 | 42 | ), |
43 | 43 | ("Sqrt[I] Infinity==I", "False"), |
44 | 44 | ("Sqrt[I] Infinity==0", "False"), |
|
90 | 90 | ("2 + 3*a==3+2 I", "2 + 3*a == 3 + 2*I"), |
91 | 91 | ( |
92 | 92 | "2 + 3*a==Compile[{x},Sqrt[x]]", |
93 | | - "2 + 3*a == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 93 | + "2 + 3*a==Compile[{x},Sqrt[x]]", |
94 | 94 | ), |
95 | 95 | ( |
96 | 96 | "2 + 3*a==Graphics[{Disk[{0,0},1]}]", |
|
153 | 153 | ), |
154 | 154 | ( |
155 | 155 | "Sqrt[I] Infinity==Compile[{x},Sqrt[x]]", |
156 | | - "Times[Power[I,1/2],DirectedInfinity[1]] == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 156 | + "Sqrt[I] Infinity==Compile[{x},Sqrt[x]]", |
157 | 157 | ), |
158 | 158 | ( |
159 | 159 | "Sqrt[I] Infinity==Graphics[{Disk[{0,0},1]}]", |
|
181 | 181 | ), |
182 | 182 | ( |
183 | 183 | "a==Compile[{x},Sqrt[x]]", |
184 | | - "a == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 184 | + "a==Compile[{x},Sqrt[x]]", |
185 | 185 | ), |
186 | 186 | ("a==Graphics[{Disk[{0,0},1]}]", "a == Graphics[{Disk[{0, 0}, 1]}]"), |
187 | 187 | ('"a"==2 + 3*a', '"a" == 2 + 3*a'), |
|
204 | 204 | ), |
205 | 205 | ( |
206 | 206 | '"a"==Compile[{x},Sqrt[x]]', |
207 | | - '"a" == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]', |
| 207 | + '"a"==Compile[{x},Sqrt[x]]', |
208 | 208 | ), |
209 | 209 | ('"a"==Graphics[{Disk[{0,0},1]}]', '"a" == Graphics[{Disk[{0, 0}, 1]}]'), |
210 | 210 | ('"1/4"==2 + 3*a', '"1/4" == 2 + 3*a'), |
|
227 | 227 | ), |
228 | 228 | ( |
229 | 229 | '"1/4"==Compile[{x},Sqrt[x]]', |
230 | | - '"1/4" == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]', |
| 230 | + '"1/4"==Compile[{x},Sqrt[x]]', |
231 | 231 | ), |
232 | 232 | ('"1/4"==Graphics[{Disk[{0,0},1]}]', '"1/4" == Graphics[{Disk[{0, 0}, 1]}]'), |
233 | 233 | ("I==2 + 3*a", "I == 2 + 3*a"), |
|
255 | 255 | ("0==BesselJ[0,2]", "False"), |
256 | 256 | ( |
257 | 257 | "0==Compile[{x},Sqrt[x]]", |
258 | | - "0 == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 258 | + "0==Compile[{x},Sqrt[x]]", |
259 | 259 | ), |
260 | 260 | ("0==Graphics[{Disk[{0,0},1]}]", "0 == Graphics[{Disk[{0, 0}, 1]}]"), |
261 | 261 | ("1/4==2 + 3*a", "1/4 == 2 + 3*a"), |
|
273 | 273 | ("1/4==3+2 I", "False"), |
274 | 274 | ( |
275 | 275 | "1/4==Compile[{x},Sqrt[x]]", |
276 | | - "1/4 == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 276 | + "1/4==Compile[{x},Sqrt[x]]", |
277 | 277 | ), |
278 | 278 | ("1/4==Graphics[{Disk[{0,0},1]}]", "1/4 == Graphics[{Disk[{0, 0}, 1]}]"), |
279 | 279 | (".25==2 + 3*a", "0.25 == 2 + 3*a"), |
|
298 | 298 | ), |
299 | 299 | ( |
300 | 300 | ".25==Compile[{x},Sqrt[x]]", |
301 | | - "0.25 == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 301 | + ".25==Compile[{x},Sqrt[x]]", |
302 | 302 | ), |
303 | 303 | (".25==Graphics[{Disk[{0,0},1]}]", "0.25 == Graphics[{Disk[{0, 0}, 1]}]"), |
304 | 304 | ("Sqrt[2]==2 + 3*a", "Sqrt[2] == 2 + 3*a"), |
|
323 | 323 | ), |
324 | 324 | ( |
325 | 325 | "Sqrt[2]==Compile[{x},Sqrt[x]]", |
326 | | - "Sqrt[2] == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 326 | + "Sqrt[2]==Compile[{x},Sqrt[x]]", |
327 | 327 | ), |
328 | 328 | ( |
329 | 329 | "Sqrt[2]==Graphics[{Disk[{0,0},1]}]", |
|
351 | 351 | ), |
352 | 352 | ( |
353 | 353 | "BesselJ[0,2]==Compile[{x},Sqrt[x]]", |
354 | | - "BesselJ[0, 2] == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 354 | + "BesselJ[0,2]==Compile[{x},Sqrt[x]]", |
355 | 355 | ), |
356 | 356 | ( |
357 | 357 | "BesselJ[0,2]==Graphics[{Disk[{0,0},1]}]", |
|
379 | 379 | ), |
380 | 380 | ( |
381 | 381 | "3+2 I==Compile[{x},Sqrt[x]]", |
382 | | - "3 + 2*I == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 382 | + "3+2 I==Compile[{x},Sqrt[x]]", |
383 | 383 | ), |
384 | 384 | ("3+2 I==Graphics[{Disk[{0,0},1]}]", "3 + 2*I == Graphics[{Disk[{0, 0}, 1]}]"), |
385 | 385 | ("2.+ Pi I==2 + 3*a", "2. + 3.141592653589793*I == 2 + 3*a"), |
|
404 | 404 | ), |
405 | 405 | ( |
406 | 406 | "2.+ Pi I==Compile[{x},Sqrt[x]]", |
407 | | - "2. + 3.141592653589793*I == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 407 | + "2. + 3.141592653589793*I == Compile[{x},Sqrt[x]]", |
408 | 408 | ), |
409 | 409 | ( |
410 | 410 | "2.+ Pi I==Graphics[{Disk[{0,0},1]}]", |
|
432 | 432 | ), |
433 | 433 | ( |
434 | 434 | "3+Pi I==Compile[{x},Sqrt[x]]", |
435 | | - "3 + I*Pi == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]", |
| 435 | + "3 + I*Pi == Compile[{x},Sqrt[x]]", |
436 | 436 | ), |
437 | 437 | ( |
438 | 438 | "3+Pi I==Graphics[{Disk[{0,0},1]}]", |
|
508 | 508 | ), |
509 | 509 | ( |
510 | 510 | 'StringStream["Tengo una vaca lechera"]==Compile[{x},Sqrt[x]]', |
511 | | - 'StringStream["Tengo una vaca lechera"] == CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate]', |
| 511 | + 'StringStream["Tengo una vaca lechera"] == Compile[{x},Sqrt[x]]', |
512 | 512 | ), |
513 | 513 | ( |
514 | 514 | 'StringStream["Tengo una vaca lechera"]==Graphics[{Disk[{0,0},1]}]', |
515 | 515 | 'StringStream["Tengo una vaca lechera"] == Graphics[{Disk[{0, 0}, 1]}]', |
516 | 516 | ), |
517 | 517 | ( |
518 | 518 | "Compile[{x},Sqrt[x]]==2 + 3*a", |
519 | | - "CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate] == 2 + 3*a", |
| 519 | + "Compile[{x},Sqrt[x]] == 2 + 3*a", |
520 | 520 | ), |
521 | 521 | ( |
522 | 522 | "Compile[{x},Sqrt[x]]==Infinity", |
523 | | - "CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate] == Infinity", |
| 523 | + "Compile[{x},Sqrt[x]] == Infinity", |
524 | 524 | ), |
525 | 525 | ( |
526 | 526 | "Compile[{x},Sqrt[x]]==-Infinity", |
527 | | - "CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate] == -Infinity", |
| 527 | + "Compile[{x},Sqrt[x]] == -Infinity", |
528 | 528 | ), |
529 | 529 | ( |
530 | 530 | "Compile[{x},Sqrt[x]]==Sqrt[I] Infinity", |
531 | | - "CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate] == Times[Power[I,1/2],DirectedInfinity[1]]", |
| 531 | + "Compile[{x},Sqrt[x]] == Times[Power[I,1/2],DirectedInfinity[1]]", |
532 | 532 | ), |
533 | 533 | ( |
534 | 534 | "Compile[{x},Sqrt[x]]==a", |
535 | | - "CompiledFunction[{10, 11.3, 5468}, {_Real}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 57, 3, 0, 0, 3, 0, 1}, {1}}, Function[{x}, Sqrt[x]], Evaluate] == a", |
| 535 | + "Compile[{x},Sqrt[x]] == a", |
536 | 536 | ), |
537 | 537 | ( |
538 | 538 | 'Compile[{x},Sqrt[x]]=="a"', |
|
0 commit comments