42 |
|
|
43 |
(use-modules (ice-9 documentation)) |
(use-modules (ice-9 documentation)) |
44 |
|
|
|
|
|
45 |
;;; |
;;; |
46 |
;;; miscellaneous |
;;; miscellaneous |
47 |
;;; |
;;; |
1291 |
;;; |
;;; |
1292 |
|
|
1293 |
;;; |
;;; |
1294 |
|
;;; sqrt |
1295 |
|
;;; |
1296 |
|
|
1297 |
|
;;; |
1298 |
|
;;; expt |
1299 |
|
;;; |
1300 |
|
|
1301 |
|
(with-test-prefix "expt" |
1302 |
|
(pass-if "(= 1 (expt 0 0))" (= 1 (expt 0 0))) |
1303 |
|
(pass-if "(= 1 (expt 0 0.0))" (= 1 (expt 0 0.0))) |
1304 |
|
(pass-if "(= 1 (expt 0.0 0))" (= 1 (expt 0.0 0))) |
1305 |
|
(pass-if "(= 1 (expt 0.0 0.0))" (= 1 (expt 0.0 0.0)))) |
1306 |
|
|
1307 |
|
;;; |
1308 |
;;; make-rectangular |
;;; make-rectangular |
1309 |
;;; |
;;; |
1310 |
|
|