From 6cae556b86d50c67ff94ee251fd97f008e99ab70 Mon Sep 17 00:00:00 2001 From: sof Date: Sun, 27 Jul 1997 00:49:12 +0000 Subject: [PATCH] [project @ 1997-07-27 00:49:03 by sof] --- ghc/tests/numeric/arith001.hs | 5 + ghc/tests/numeric/arith002.hs | 4 + ghc/tests/numeric/arith003.hs | 2 + ghc/tests/numeric/arith004.hs | 12 + ghc/tests/numeric/arith005.hs | 20 + ghc/tests/numeric/arith006.hs | 1 + ghc/tests/numeric/arith007.hs | 1 + ghc/tests/numeric/arith008.hs | 1000 +++++++++++++++++++++++++++++++++++++++++ ghc/tests/numeric/arith009.hs | 1 + ghc/tests/numeric/arith010.hs | 11 + ghc/tests/numeric/array001.hs | 1 + ghc/tests/numeric/array002.hs | 1 + 12 files changed, 1059 insertions(+) create mode 100644 ghc/tests/numeric/arith001.hs create mode 100644 ghc/tests/numeric/arith002.hs create mode 100644 ghc/tests/numeric/arith003.hs create mode 100644 ghc/tests/numeric/arith004.hs create mode 100644 ghc/tests/numeric/arith005.hs create mode 100644 ghc/tests/numeric/arith006.hs create mode 100644 ghc/tests/numeric/arith007.hs create mode 100644 ghc/tests/numeric/arith008.hs create mode 100644 ghc/tests/numeric/arith009.hs create mode 100644 ghc/tests/numeric/arith010.hs create mode 100644 ghc/tests/numeric/array001.hs create mode 100644 ghc/tests/numeric/array002.hs diff --git a/ghc/tests/numeric/arith001.hs b/ghc/tests/numeric/arith001.hs new file mode 100644 index 0000000..741c480 --- /dev/null +++ b/ghc/tests/numeric/arith001.hs @@ -0,0 +1,5 @@ +42 % 1 +42, 1 +42.0, 1.0 +5910974510923776, -47 +5910974510923776, -47 diff --git a/ghc/tests/numeric/arith002.hs b/ghc/tests/numeric/arith002.hs new file mode 100644 index 0000000..cb337a0 --- /dev/null +++ b/ghc/tests/numeric/arith002.hs @@ -0,0 +1,4 @@ +[0 % 1, 0 % 1, 0 % 1, 2 % 1, 2 % 1, -2 % 1, -2 % 1, 22 % 7, 1 % 5000] +[0, 0, 0, 2, 2, -2, -2, 22, 1, 1, 1, 1, 1, 1, 1, 1, 7, 5000] +[0 % 1, 0 % 1, 0 % 1, 2 % 1, 2 % 1, -2 % 1, -2 % 1, 22 % 7, 1 % 5000] +[0, 0, 0, 2, 2, -2, -2, 22, 1, 1, 1, 1, 1, 1, 1, 1, 7, 5000] diff --git a/ghc/tests/numeric/arith003.hs b/ghc/tests/numeric/arith003.hs new file mode 100644 index 0000000..24dd4fc --- /dev/null +++ b/ghc/tests/numeric/arith003.hs @@ -0,0 +1,2 @@ +[-2147483647, 2147483647, -4, 12, -2147483643, -2147483647, 2, 2, 2, 8, 8, 52861, 24, 24, 24, 0, 0, 207585147, 1, 4096, 4096] +[-2147483647, 2147483647, -4, 12, -2147483643, -2147483647, 2, 2, 2, 8, 8, 52861, 24, 24, 24, 0, 0, 207585147, 1, 4096, 4096] diff --git a/ghc/tests/numeric/arith004.hs b/ghc/tests/numeric/arith004.hs new file mode 100644 index 0000000..e94f88d --- /dev/null +++ b/ghc/tests/numeric/arith004.hs @@ -0,0 +1,12 @@ +[0, 0, 2, 3, -4, -4, 3, 1234, -1235, -1235, 1234, 12, 61, -1235, 12345, -123457, -2, 12345] +[0, 0, 2, 3, -4, -4, 3, 1234, -1235, -1235, 1234, 12, 61, -1235, 12345, -123457, -2, 12345, 24, 246745167] +[0, 0, 1, 1, 1, -1, -1, 5678, 5678, -5678, -5678, 3456, 14567, 5678, 6789, 7890, -2345, -6789] +[0, 0, 1, 1, 1, -1, -1, 5678, 5678, -5678, -5678, 3456, 14567, 5678, 6789, 7890, -2345, -6789, 345678900, 3703333360749468678900] +[0, 0, 2, 3, -3, -3, 3, 1234, -1234, -1234, 1234, 12, 61, -1234, 12345, -123456, -1, 12345] +[0, 0, 2, 3, -3, -3, 3, 1234, -1234, -1234, 1234, 12, 61, -1234, 12345, -123456, -1, 12345, 24, 246745167] +[0, 0, 1, 1, -3, 3, -1, 5678, -4322, 4322, -5678, 3456, 14567, -4322, 6789, -2110, 7655, -6789] +[0, 0, 1, 1, -3, 3, -1, 5678, -4322, 4322, -5678, 3456, 14567, -4322, 6789, -2110, 7655, -6789, 345678900, 3703333360749468678900] +[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True] +[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True] +[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True] +[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True] diff --git a/ghc/tests/numeric/arith005.hs b/ghc/tests/numeric/arith005.hs new file mode 100644 index 0000000..521d36d --- /dev/null +++ b/ghc/tests/numeric/arith005.hs @@ -0,0 +1,20 @@ +[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4] +[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4] +[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4] +[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4] +[0, 0, 1, 2, 3, 4, -1, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3] +[0, 0, 1, 2, 3, 4, -1, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3] +[0, 0, 1, 2, 3, 4, -2, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3] +[0, 0, 1, 2, 3, 4, -2, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3] +[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3] +[(0, 0.0), (0, 0.0), (1, 0.100000024), (2, 0.79999995), (3, 0.5), (4, 0.5), (-1, 0.0), (-2, -0.9999995), (-3, -0.5), (-4, -0.5), (1000012, 0.0), (123, 0.45600128), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159274)] +[(0, 0.0), (0, 0.0), (1, 0.100000024), (2, 0.79999995), (3, 0.5), (4, 0.5), (-1, 0.0), (-2, -0.9999995), (-3, -0.5), (-4, -0.5), (1000012, 0.0), (123, 0.45600128), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159274)] +[(0, 0.0), (0, 0.0), (1, 0.10000000000000009), (2, 0.7999999999999998), (3, 0.5), (4, 0.5), (-1, -1.000000082740371e-10), (-2, -0.9999994999999999), (-3, -0.50000000001), (-4, -0.49999999999), (1000012, 0.0), (123, 0.45600000000000307), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159265358979312)] +[(0, 0.0), (0, 0.0), (1, 0.10000000000000009), (2, 0.7999999999999998), (3, 0.5), (4, 0.5), (-1, -1.000000082740371e-10), (-2, -0.9999994999999999), (-3, -0.50000000001), (-4, -0.49999999999), (1000012, 0.0), (123, 0.45600000000000307), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159265358979312)] diff --git a/ghc/tests/numeric/arith006.hs b/ghc/tests/numeric/arith006.hs new file mode 100644 index 0000000..713c222 --- /dev/null +++ b/ghc/tests/numeric/arith006.hs @@ -0,0 +1 @@ +42.0 diff --git a/ghc/tests/numeric/arith007.hs b/ghc/tests/numeric/arith007.hs new file mode 100644 index 0000000..c9be8e5 --- /dev/null +++ b/ghc/tests/numeric/arith007.hs @@ -0,0 +1 @@ +[2, 6, 10, 14, 18, 22222222222222222222222222222, 4444444444444444444444444444444444444, 6666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666, -22222222222222222222222222222, -4444444444444444444444444444444444444, -6666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666] diff --git a/ghc/tests/numeric/arith008.hs b/ghc/tests/numeric/arith008.hs new file mode 100644 index 0000000..6a6007c --- /dev/null +++ b/ghc/tests/numeric/arith008.hs @@ -0,0 +1,1000 @@ +[0.41359794, +0.6399324, +0.92941284, +0.8322308, +0.6558542, +0.27844667, +0.48358274, +0.21114683, +0.7582127, +0.12166107, +0.981663, +0.79931486, +0.8722358, +0.45195377, +3.4911394e-2, +0.7246227, +0.24528801, +0.6998143, +0.9876834, +0.42533565, +0.59525573, +0.38930762, +0.119990826, +0.9083969, +0.26239872, +2.744031e-2, +0.7286656, +0.92476606, +0.8718927, +0.1687454, +0.13774204, +0.28789735, +0.9548291, +0.41255307, +0.8564267, +8.4107876e-2, +0.48756683, +0.11202359, +0.51587105, +0.5511048, +0.93413484, +0.6428783, +0.87145376, +0.67891765, +0.23348927, +0.3780495, +0.87735546, +0.85223985, +0.19405353, +0.3535874, +0.72997916, +0.23668802, +0.61755717, +0.9253086, +0.7007494, +0.98090434, +0.23180747, +0.8951179, +0.18330741, +0.30362415, +0.57720375, +0.8465313, +0.31598616, +0.20875359, +0.18506193, +0.56406593, +0.87965286, +2.7450562e-2, +0.14676762, +0.74345183, +0.92644644, +1.5535355e-3, +0.8126061, +0.6636951, +0.15379143, +0.16009843, +0.29956555, +0.71643496, +0.65267706, +1.2942791e-2, +0.15469885, +0.70281076, +0.49925303, +0.9001132, +0.55416614, +0.2577113, +0.28545964, +0.26130748, +0.91633797, +0.2018559, +0.88357884, +0.6068319, +0.41902173, +0.80342615, +0.5469477, +0.5351703, +0.36879182, +0.85823405, +0.18722737, +0.20447707, +0.5052972, +0.41609886, +0.13425875, +0.8554218, +0.37205708, +9.450865e-2, +0.97575045, +0.8755969, +0.7150241, +0.6752708, +0.6860019, +0.21408677, +0.30702153, +0.3567884, +0.6356261, +0.84917825, +0.13312805, +0.1351955, +0.2726475, +0.77746105, +0.39467335, +0.42776418, +0.15337801, +0.1592257, +0.28089368, +0.6215863, +0.15158892, +0.62589145, +0.9849372, +0.47261155, +0.13879633, +0.53436935, +0.8684354, +0.49009013, +0.8487663, +0.415954, +0.49733603, +0.81666195, +0.50797117, +0.19971132, +0.5820248, +0.9983189, +0.27208292, +0.67335844, +0.27931952, +0.42391694, +0.9081789, +7.466531e-2, +5.3013563e-2, +0.2840109, +0.4830655, +0.1756686, +0.62167895, +0.89717495, +0.19109178, +0.78958845, +1.543045e-2, +5.0975323e-2, +0.21466875, +0.4129461, +0.289948, +0.7271167, +0.99582183, +6.0527444e-2, +0.75902903, +0.6639817, +0.8994356, +2.9090405e-2, +0.3309772, +0.8311074, +0.27760005, +1.6489744e-2, +4.7184825e-2, +6.268692e-2, +0.37376666, +0.9638035, +0.80776775, +0.690861, +0.6061044, +0.6701783, +0.8412647, +0.5805452, +0.41863844, +0.5514518, +0.5801554, +9.124398e-2, +0.737221, +0.24314034, +0.74114823, +0.32066846, +1.3154507e-2, +0.50678635, +0.5137007, +0.551865, +0.69038117, +0.61931777, +0.70399594, +0.9727828, +0.20246375, +0.85520244, +5.0735712e-2, +0.9930371, +0.30815053, +0.22076559, +0.32370973, +0.17521977, +0.43994308, +0.9906125, +0.5326147, +0.66132426, +7.4525714e-2, +1.51029825e-2, +3.151095e-2, +0.8795854, +0.1700325, +0.2575338, +0.75477123, +0.8775394, +0.53388363, +0.7104862, +0.13311696, +0.73177624, +0.19375706, +0.88381815, +0.75322676, +0.6076188, +0.48591495, +0.53411245, +0.7115935, +0.48955488, +0.59558845, +0.9807129, +0.8284396, +0.95038444, +0.59036994, +0.52881944, +0.9948325, +0.49523282, +0.7008028, +0.78729224, +0.9902679, +0.5339551, +4.0822983e-2, +0.37561977, +0.5063989, +0.28711128, +0.32709387, +0.8450576, +0.64256006, +0.906507, +4.6909094e-2, +0.637144, +0.16923797, +0.7377299, +0.30585575, +0.3570485, +0.98593795, +0.5611129, +7.524538e-2, +0.8517368, +0.74607563, +0.4913547, +0.83715105, +0.59740007, +0.9108657, +0.14394355, +8.5148096e-2, +0.582165, +2.120018e-3, +0.705053, +0.97463274, +0.58965266, +0.6484089, +0.79429245, +0.7779026, +0.3388164, +0.35976696, +9.1204405e-2, +0.6134187, +0.8495743, +0.9256909, +0.8651266, +0.19850588, +0.7568064, +0.44688892, +0.89375556, +0.28960586, +0.5118885, +0.39481246, +0.23119497, +0.99098516, +0.6882521, +2.3570538e-2, +0.46816385, +0.43301296, +5.7090998e-2, +0.7131885, +0.49999893, +0.8016077, +0.6981158, +0.7528713, +0.50114954, +0.86821973, +0.88443303, +0.4772892, +0.80758643, +0.38138628, +8.940506e-2, +0.6924608, +0.52786016, +0.802331, +0.98923236, +0.17653704, +0.68997073, +0.1820991, +0.64604473, +0.38469362, +0.8968754, +0.15813422, +0.868925, +4.019952e-2, +0.25560212, +0.3128089, +0.41993904, +0.948833, +0.826739, +0.10151219, +0.787004, +0.9594268, +0.14901423, +0.1414566, +0.24321175, +9.9901915e-2, +0.8921989, +0.32741654, +0.6458428, +0.16487455, +0.12096548, +0.48751688, +5.245471e-2, +0.71360433, +0.94619334, +0.2514913, +0.31235778, +0.3618456, +0.57202005, +8.347988e-3, +0.1945982, +0.6956324, +0.9895966, +0.87327766, +0.26017582, +0.47406793, +0.9971419, +0.5826107, +0.17589438, +0.89086056, +0.18030643, +0.4091003, +0.39576983, +0.38442576, +0.13684058, +8.986688e-2, +0.17313194, +0.7679503, +0.36211073, +0.82255757, +0.9100534, +0.6802888, +0.11309266, +0.47404623, +0.8113966, +0.42064667, +0.42901254, +0.14277196, +0.1055603, +0.57029915, +0.5498085, +0.71666944, +0.13909936, +6.697273e-2, +0.30388212, +0.84999645, +0.61905026, +0.80875367, +0.7628211, +0.7617794, +0.24128532, +0.8171586, +0.7165446, +0.29046047, +5.484104e-3, +0.29707146, +0.45159855, +0.8470775, +0.9105661, +0.6157371, +0.24743724, +0.26728547, +0.3399787, +0.30999124, +0.27707434, +0.26195288, +0.57788026, +0.98340875, +0.7114443, +0.10142648, +0.8840177, +0.3299948, +0.27686334, +0.66194046, +0.5837232, +0.34851027, +0.61612344, +0.60064816, +2.1667004e-2, +0.51634264, +0.5840348, +0.54137635, +0.93811476, +0.88630515, +0.35464, +0.659227, +0.74290437, +0.6366904, +0.12916958, +0.19237244, +4.462242e-3, +8.1073284e-2, +0.847996, +0.8305576, +9.401786e-2, +0.17688239, +0.36067092, +0.56400156, +0.4449073, +0.80550474, +0.94339013, +0.2624426, +0.43337846, +0.79860497, +0.9083978, +7.7695847e-3, +0.28432655, +0.8844242, +0.43196678, +0.5022042, +0.71939504, +0.87787163, +2.2063255e-2, +0.5932679, +0.88764143, +0.6470535, +2.7034998e-2, +0.72032475, +0.19539523, +0.77757996, +0.37001276, +0.84153897, +0.6239723, +0.3756181, +6.846321e-2, +0.8378935, +0.59974074, +0.68847823, +0.7352172, +1.07290745e-2, +0.5101199, +0.85353947, +0.14964247, +0.5860499, +0.17709386, +0.89342284, +0.17894697, +0.5400078, +0.4210199, +0.23370409, +0.5818304, +0.68282104, +5.1081896e-2, +0.9042077, +0.3783505, +0.44932246, +0.6200993, +0.18954074, +0.4474795, +0.31125343, +0.8426063, +6.332576e-2, +0.8104075, +0.8648635, +0.44148827, +0.84095, +0.79439354, +0.5551748, +0.687835, +0.118896365, +0.4412912, +0.57976437, +0.6679896, +0.30952072, +0.35373104, +0.18037248, +9.540319e-3, +0.48488736, +0.1673789, +0.73954326, +0.56652427, +0.49777925, +0.5246444, +0.6702163, +0.87621975, +0.359416, +0.832193, +0.18441534, +0.20517778, +0.32071996, +0.65496826, +3.7642956e-2, +0.5331861, +0.29038882, +0.35165787, +0.655563, +0.7891048, +0.14961207, +1.6696453e-3, +0.47526348, +0.82897127, +4.0933132e-2, +0.24862742, +0.44936025, +0.2355707, +0.13713741, +0.7814115, +0.80927956, +0.583858, +0.7193563, +0.19353557, +0.36663485, +0.107114315, +0.72664094, +0.121150136, +0.6676494, +0.3600223, +0.90352046, +0.9873058, +0.8213589, +0.4037695, +0.42661357, +0.8075288, +0.49739814, +0.708357, +0.89534307, +2.7906299e-2, +0.5197699, +0.5873811, +0.37502038, +0.25809133, +0.41655612, +0.35278225, +0.16273963, +0.66940236, +0.97849786, +0.28304625, +0.6673634, +0.19332111, +0.7478994, +0.59783196, +7.6501966e-2, +0.32878637, +0.5024115, +0.7220932, +0.8336895, +0.56268775, +0.89503884, +0.9931685, +0.3670969, +0.6999072, +0.77585983, +0.31907177, +0.76584256, +4.325044e-2, +0.29987824, +0.89478886, +0.21245062, +0.2749796, +0.27403784, +0.12384033, +8.77223e-2, +0.6968431, +0.41428828, +0.86889815, +0.93862987, +0.28137636, +0.4471743, +0.2681458, +0.16012955, +0.62948954, +0.7444658, +0.57012916, +0.10132849, +0.8278511, +0.19847322, +0.50814533, +0.62132853, +0.18225956, +0.16162908, +0.43761563, +0.10031223, +0.75076735, +0.75551176, +0.5453377, +0.5066473, +0.42767167, +0.5992305, +0.9446988, +0.41565955, +0.9331987, +0.9897334, +0.89694524, +0.6788764, +0.85561335, +0.6666684, +0.80166984, +0.40720224, +0.86944854, +0.92634535, +0.27878547, +0.8053527, +0.6522385, +0.5152416, +0.17939234, +0.24954629, +0.6818764, +0.7267182, +0.36313987, +9.25622e-2, +0.84685767, +0.4344505, +0.692098, +0.34008884, +5.9524536e-2, +3.827691e-2, +0.9333053, +0.2090958, +0.5924697, +0.61903036, +0.30183077, +0.4231342, +0.49257803, +0.83910036, +0.43436274, +0.9565089, +0.2666788, +4.047084e-2, +0.41260076, +0.84976804, +0.9851905, +0.62259483, +0.8959986, +0.31737566, +0.3398435, +0.27567053, +0.9734041, +0.77031887, +0.8473544, +0.3174919, +0.58769834, +0.34807217, +0.5406821, +0.8544055, +0.62600684, +0.33839083, +0.9849396, +1.2942314e-2, +0.1475277, +0.4787073, +0.54596233, +0.1752423, +0.77059823, +9.041047e-2, +0.2985853, +0.23247159, +0.23486897, +0.23700523, +0.47728157, +0.49480152, +0.72553325, +0.19682777, +0.88427216, +6.551409e-2, +0.6175699, +0.8277023, +0.2039113, +0.9962605, +0.9707756, +9.154308e-2, +0.123990774, +0.41500008, +0.45899975, +0.7904736, +0.64120626, +0.29223895, +0.48712683, +0.16071367, +0.7799654, +0.7871841, +0.34515953, +0.24462819, +0.7682588, +0.45865273, +0.97019315, +0.52276766, +1.2032986e-3, +0.2552061, +0.35652947, +1.6108036e-2, +0.22363806, +6.0125113e-2, +0.6667728, +0.13875532, +0.48999977, +0.21847558, +0.12436485, +0.6117995, +0.96883655, +0.7170677, +0.7637136, +0.50507927, +0.88803625, +0.6205857, +0.22137904, +0.97533226, +0.9804591, +0.97967625, +7.506108e-2, +0.27170992, +0.8107689, +0.76826, +0.8306192, +0.77724457, +0.80831075, +0.76732874, +8.157933e-2, +0.3223102, +0.8257649, +0.973259, +7.5988054e-2, +0.5415702, +0.25776172, +0.76154125, +0.91835296, +0.837816, +0.68698716, +0.99165297, +0.36068523, +0.53661215, +0.94795275, +0.24835014, +0.53556097, +0.7917472, +0.17282593, +0.44980502, +0.8159183, +0.2109356, +8.1673145e-2, +0.9069164, +0.8804593, +0.38818514, +0.42148066, +0.84182596, +0.85033655, +0.11290777, +0.9591603, +0.9008815, +0.12636256, +0.62351793, +0.5625932, +0.40783405, +0.9398462, +0.9048507, +0.70350707, +0.5732843, +0.9578413, +0.471671, +0.80402017, +0.23877287, +2.8808951e-2, +0.79105496, +0.39669204, +0.5252528, +5.068612e-2, +0.17306566, +0.33026814, +0.8069451, +0.774801, +0.29274237, +0.9410742, +0.24736834, +0.45892864, +0.32286835, +9.423089e-2, +0.23926187, +0.938661, +0.11605501, +0.7519337, +0.44994712, +0.8859633, +0.79223514, +0.7983874, +7.165241e-2, +0.9462296, +0.8046231, +0.9736757, +0.9235935, +0.85922825, +0.14425218, +0.96055603, +0.4746909, +0.3689847, +0.3266207, +0.6575446, +0.90298265, +0.612165, +0.94542164, +4.7265768e-2, +0.9178722, +0.7290449, +0.7926531, +0.8426634, +0.79898036, +1.8381119e-2, +5.914831e-2, +0.5302744, +0.3689797, +0.4085008, +8.593702e-2, +0.8765965, +2.9750824e-2, +0.23264515, +0.15577197, +0.21319818, +0.21833336, +0.3431382, +0.6172347, +0.5659256, +0.9447398, +0.7262399, +0.7598543, +0.56384385, +0.845103, +0.4162705, +0.13864326, +0.7863791, +0.13542509, +0.6184137, +0.2607739, +0.15591526, +0.77601504, +0.76669025, +0.56118643, +1.807928e-2, +0.31010872, +0.8704659, +0.98514426, +0.40933478, +0.1785686, +0.48007095, +8.039451e-2, +3.796923e-2, +0.8610754, +0.9595243, +0.9287634, +7.802105e-2, +0.8274702, +0.6773733, +0.97041106, +0.2371938, +0.7191273, +0.36731863, +0.6625139, +0.3092258, +0.47899795, +2.6395798e-2, +4.1056633e-2, +0.7962029, +0.5768552, +0.5356126, +1.3688564e-2, +0.41969243, +0.8178707, +0.5881722, +0.4442004, +0.42637897, +0.76563597, +8.336306e-3, +3.3709526e-2, +0.53669834, +0.53756106, +0.31038988, +0.41079557, +0.39238024, +0.24557912, +9.8520994e-2, +0.6807518, +0.12773252, +0.67073166, +0.34699106, +0.9979162, +0.42680383, +0.9087982, +0.6900128, +0.94652975, +0.17221642, +0.33502197, +0.30609477, +0.70375323, +0.41938114, +0.8668362, +0.77143216, +8.8229895e-2, +0.18202114, +0.21520734, +0.10074675, +0.38907886, +5.9812307e-2, +0.62150526, +0.99084735, +0.31110406, +0.7914846, +0.8661854, +0.518523, +0.6151075, +0.9395801, +0.4002422, +0.35337317, +0.40262416, +0.7039368, +0.935411, +1.2230396e-2, +0.6683055, +0.11150932, +5.5537343e-2, +8.355498e-2, +0.6007279, +0.4403205, +0.5811975, +0.86318696, +5.6501627e-2, +0.23753202, +0.9949539, +0.64893156, +0.90060663, +0.14257383, +0.8300431, +0.37252688, +0.18130136, +0.20323014, +0.4809363, +0.8961161, +0.23287201, +0.43141174, +0.3489914, +0.51495457, +0.8010473, +0.23635447, +0.54324985, +0.69954085, +0.48034823, +0.68947554, +0.77823305, +0.7533914, +0.24090028, +0.8162971, +0.46965337, +0.59434736, +0.1630373, +0.6848186, +1.57516e-2, +0.8775939, +0.99723464, +0.4292655, +0.47325504, +0.8548535, +0.4219792, +0.7294735, +0.77217937, +0.8508531, +0.117975116, +0.36563516, +0.37111998, +0.3301561, +6.940341e-2, +0.5864358, +0.113250256, +0.67253065, +0.8080728, +0.44792616, +0.34973896, +0.25323582] diff --git a/ghc/tests/numeric/arith009.hs b/ghc/tests/numeric/arith009.hs new file mode 100644 index 0000000..949a11b --- /dev/null +++ b/ghc/tests/numeric/arith009.hs @@ -0,0 +1 @@ +-40 diff --git a/ghc/tests/numeric/arith010.hs b/ghc/tests/numeric/arith010.hs new file mode 100644 index 0000000..846f76e --- /dev/null +++ b/ghc/tests/numeric/arith010.hs @@ -0,0 +1,11 @@ +-- Tests enumerations + +main = do + print [1..10] + print [10..1] -- [] + print [1,3..10] + print [10,8..1] + print ['a'..'f'] + print ['f'..'a'] -- [] + print ['a','c'..'m'] + print ['m','l'..'a'] diff --git a/ghc/tests/numeric/array001.hs b/ghc/tests/numeric/array001.hs new file mode 100644 index 0000000..005ba17 --- /dev/null +++ b/ghc/tests/numeric/array001.hs @@ -0,0 +1 @@ +array (1, 100) [(1, 1), (2, 2), (3, 6), (4, 24), (5, 120), (6, 720), (7, 5040), (8, 40320), (9, 362880), (10, 3628800), (11, 39916800), (12, 479001600), (13, 6227020800), (14, 87178291200), (15, 1307674368000), (16, 20922789888000), (17, 355687428096000), (18, 6402373705728000), (19, 121645100408832000), (20, 2432902008176640000), (21, 51090942171709440000), (22, 1124000727777607680000), (23, 25852016738884976640000), (24, 620448401733239439360000), (25, 15511210043330985984000000), (26, 403291461126605635584000000), (27, 10888869450418352160768000000), (28, 304888344611713860501504000000), (29, 8841761993739701954543616000000), (30, 265252859812191058636308480000000), (31, 8222838654177922817725562880000000), (32, 263130836933693530167218012160000000), (33, 8683317618811886495518194401280000000), (34, 295232799039604140847618609643520000000), (35, 10333147966386144929666651337523200000000), (36, 371993326789901217467999448150835200000000), (37, 13763753091226345046315979581580902400000000), (38, 523022617466601111760007224100074291200000000), (39, 20397882081197443358640281739902897356800000000), (40, 815915283247897734345611269596115894272000000000), (41, 33452526613163807108170062053440751665152000000000), (42, 1405006117752879898543142606244511569936384000000000), (43, 60415263063373835637355132068513997507264512000000000), (44, 2658271574788448768043625811014615890319638528000000000), (45, 119622220865480194561963161495657715064383733760000000000), (46, 5502622159812088949850305428800254892961651752960000000000), (47, 258623241511168180642964355153611979969197632389120000000000), (48, 12413915592536072670862289047373375038521486354677760000000000), (49, 608281864034267560872252163321295376887552831379210240000000000), (50, 30414093201713378043612608166064768844377641568960512000000000000), (51, 1551118753287382280224243016469303211063259720016986112000000000000), (52, 80658175170943878571660636856403766975289505440883277824000000000000), (53, 4274883284060025564298013753389399649690343788366813724672000000000000), (54, 230843697339241380472092742683027581083278564571807941132288000000000000), (55, 12696403353658275925965100847566516959580321051449436762275840000000000000), (56, 710998587804863451854045647463724949736497978881168458687447040000000000000), (57, 40526919504877216755680601905432322134980384796226602145184481280000000000000), (58, 2350561331282878571829474910515074683828862318181142924420699914240000000000000), (59, 138683118545689835737939019720389406345902876772687432540821294940160000000000000), (60, 8320987112741390144276341183223364380754172606361245952449277696409600000000000000), (61, 507580213877224798800856812176625227226004528988036003099405939480985600000000000000), (62, 31469973260387937525653122354950764088012280797258232192163168247821107200000000000000), (63, 1982608315404440064116146708361898137544773690227268628106279599612729753600000000000000), (64, 126886932185884164103433389335161480802865516174545192198801894375214704230400000000000000), (65, 8247650592082470666723170306785496252186258551345437492922123134388955774976000000000000000), (66, 544344939077443064003729240247842752644293064388798874532860126869671081148416000000000000000), (67, 36471110918188685288249859096605464427167635314049524593701628500267962436943872000000000000000), (68, 2480035542436830599600990418569171581047399201355367672371710738018221445712183296000000000000000), (69, 171122452428141311372468338881272839092270544893520369393648040923257279754140647424000000000000000), (70, 11978571669969891796072783721689098736458938142546425857555362864628009582789845319680000000000000000), (71, 850478588567862317521167644239926010288584608120796235886430763388588680378079017697280000000000000000), (72, 61234458376886086861524070385274672740778091784697328983823014963978384987221689274204160000000000000000), (73, 4470115461512684340891257138125051110076800700282905015819080092370422104067183317016903680000000000000000), (74, 330788544151938641225953028221253782145683251820934971170611926835411235700971565459250872320000000000000000), (75, 24809140811395398091946477116594033660926243886570122837795894512655842677572867409443815424000000000000000000), (76, 1885494701666050254987932260861146558230394535379329335672487982961844043495537923117729972224000000000000000000), (77, 145183092028285869634070784086308284983740379224208358846781574688061991349156420080065207861248000000000000000000), (78, 11324281178206297831457521158732046228731749579488251990048962825668835325234200766245086213177344000000000000000000), (79, 894618213078297528685144171539831652069808216779571907213868063227837990693501860533361810841010176000000000000000000), (80, 71569457046263802294811533723186532165584657342365752577109445058227039255480148842668944867280814080000000000000000000), (81, 5797126020747367985879734231578109105412357244731625958745865049716390179693892056256184534249745940480000000000000000000), (82, 475364333701284174842138206989404946643813294067993328617160934076743994734899148613007131808479167119360000000000000000000), (83, 39455239697206586511897471180120610571436503407643446275224357528369751562996629334879591940103770870906880000000000000000000), (84, 3314240134565353266999387579130131288000666286242049487118846032383059131291716864129885722968716753156177920000000000000000000), (85, 281710411438055027694947944226061159480056634330574206405101912752560026159795933451040286452340924018275123200000000000000000000), (86, 24227095383672732381765523203441259715284870552429381750838764496720162249742450276789464634901319465571660595200000000000000000000), (87, 2107757298379527717213600518699389595229783738061356212322972511214654115727593174080683423236414793504734471782400000000000000000000), (88, 185482642257398439114796845645546284380220968949399346684421580986889562184028199319100141244804501828416633516851200000000000000000000), (89, 16507955160908461081216919262453619309839666236496541854913520707833171034378509739399912570787600662729080382999756800000000000000000000), (90, 1485715964481761497309522733620825737885569961284688766942216863704985393094065876545992131370884059645617234469978112000000000000000000000), (91, 135200152767840296255166568759495142147586866476906677791741734597153670771559994765685283954750449427751168336768008192000000000000000000000), (92, 12438414054641307255475324325873553077577991715875414356840239582938137710983519518443046123837041347353107486982656753664000000000000000000000), (93, 1156772507081641574759205162306240436214753229576413535186142281213246807121467315215203289516844845303838996289387078090752000000000000000000000), (94, 108736615665674308027365285256786601004186803580182872307497374434045199869417927630229109214583415458560865651202385340530688000000000000000000000), (95, 10329978488239059262599702099394727095397746340117372869212250571234293987594703124871765375385424468563282236864226607350415360000000000000000000000), (96, 991677934870949689209571401541893801158183648651267795444376054838492222809091499987689476037000748982075094738965754305639874560000000000000000000000), (97, 96192759682482119853328425949563698712343813919172976158104477319333745612481875498805879175589072651261284189679678167647067832320000000000000000000000), (98, 9426890448883247745626185743057242473809693764078951663494238777294707070023223798882976159207729119823605850588608460429412647567360000000000000000000000), (99, 933262154439441526816992388562667004907159682643816214685929638952175999932299156089414639761565182862536979208272237582511852109168640000000000000000000000), (100, 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000)] diff --git a/ghc/tests/numeric/array002.hs b/ghc/tests/numeric/array002.hs new file mode 100644 index 0000000..cc8c836 --- /dev/null +++ b/ghc/tests/numeric/array002.hs @@ -0,0 +1 @@ +array (102, 113) [(102, 6.3661977236758138e-1), (103, 1.9098593171027440), (104, 7.6394372684109761), (105, 38.197186342054884), (106, 229.18311805232929), (107, 1604.2818263663050), (108, 12834.254610930440), (109, 115508.29149837396), (110, 1155082.9149837396), (111, 12705912.064821135), (112, 152470944.77785364), (113, 1982122282.1120973)] -- 1.7.10.4