prelude_tests.nbt 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170
  1. # unit_of
  2. assert_eq(unit_of(0), 1)
  3. assert_eq(unit_of(1), 1)
  4. assert_eq(unit_of(1.2345), 1)
  5. assert_eq(unit_of(1 m), m)
  6. assert_eq(unit_of(1.2345 m), m)
  7. assert_eq(unit_of(1 m^2/s), m^2/s)
  8. assert_eq(unit_of(1.2345 m^2/s), m^2/s)
  9. # value_of
  10. assert_eq(value_of(0), 0)
  11. assert_eq(value_of(1), 1)
  12. assert_eq(value_of(1.2345), 1.2345)
  13. assert_eq(value_of(1 m), 1)
  14. assert_eq(value_of(1.2345 m), 1.2345)
  15. assert_eq(value_of(1 m^2/s), 1)
  16. assert_eq(value_of(1.2345 m^2/s), 1.2345)
  17. # hypot
  18. assert_eq(hypot2(3, 4), 5)
  19. assert_eq(hypot2(3 m, 4 m), 5 m)
  20. assert_eq(hypot3(8, 9, 12), 17)
  21. assert_eq(hypot3(8 m, 9 m, 12 m), 17 m)
  22. # trigonometry_extra
  23. assert_eq(cot(0.3), 3.2327281, 1e-5)
  24. assert_eq(acot(0.3), 1.2793395, 1e-5)
  25. assert_eq(coth(0.3), 3.4327384, 1e-5)
  26. assert_eq(acoth(1.3), 1.018441, 1e-5)
  27. assert_eq(secant(0.3), 1.0467516, 1e-5)
  28. assert_eq(arcsecant(1.3), 0.693160, 1e-5)
  29. assert_eq(csc(0.3), 3.3838634, 1e-5)
  30. assert_eq(acsc(1.3), 0.877636, 1e-5)
  31. assert_eq(sech(1.3), 0.507379, 1e-5)
  32. assert_eq(asech(0.3), 1.873820, 1e-5)
  33. assert_eq(csch(0.3), 3.283853, 1e-5)
  34. assert_eq(acsch(0.3), 1.918896, 1e-5)
  35. # strings
  36. assert_eq(str_length(""), 0)
  37. assert_eq(str_length("foo"), 3)
  38. assert_eq(str_slice("hello world", 0, 5), "hello")
  39. assert_eq(str_slice("hello world", 6, 11), "world")
  40. assert_eq(str_slice("hello world", 0, 0), "")
  41. assert_eq(str_slice("hello world", 0, 100), "")
  42. assert_eq(str_append("foo", "bar"), "foobar")
  43. assert(str_contains("hello world", "hello"))
  44. assert(str_contains("hello world", "world"))
  45. assert_eq(str_contains("hello world", "HELLO"), false)
  46. assert_eq(str_replace("hello world", "hello", "HEY"), "HEY world")
  47. assert_eq(str_replace("xxx", "x", "yY"), "yYyYyY")
  48. assert_eq(str_replace("a b", " ", " "), "a b")
  49. assert_eq(str_repeat("xy", 3), "xyxyxy")
  50. assert_eq((0b0 -> bin), "0b0")
  51. assert_eq((0b1 -> bin), "0b1")
  52. assert_eq((0b10 -> bin), "0b10")
  53. assert_eq((0b11 -> bin), "0b11")
  54. assert_eq((0b10101010101010101010101010101010 -> bin), "0b10101010101010101010101010101010")
  55. assert_eq((-0b11110000 -> bin), "-0b11110000")
  56. assert_eq((0o0 -> oct), "0o0")
  57. assert_eq((0o1 -> oct), "0o1")
  58. assert_eq((0o7 -> oct), "0o7")
  59. assert_eq((0o10 -> oct), "0o10")
  60. assert_eq((0o77 -> oct), "0o77")
  61. assert_eq((0o12345670 -> oct), "0o12345670")
  62. assert_eq((-0o12345670 -> oct), "-0o12345670")
  63. assert_eq((0x0 -> hex), "0x0")
  64. assert_eq((0x1 -> hex), "0x1")
  65. assert_eq((0x9 -> hex), "0x9")
  66. assert_eq((0xa -> hex), "0xa")
  67. assert_eq((0xf -> hex), "0xf")
  68. assert_eq((0xabc1234567890 -> hex), "0xabc1234567890")
  69. assert_eq((-0xc0ffee -> hex), "-0xc0ffee")
  70. # maximum
  71. assert_eq(maximum([1]), 1)
  72. assert_eq(maximum([1, 3]), 3)
  73. assert_eq(maximum([3, 1]), 3)
  74. assert_eq(maximum([100 cm, 3 m]), 3 m)
  75. # minimum
  76. assert_eq(minimum([1]), 1)
  77. assert_eq(minimum([1, 3]), 1)
  78. assert_eq(minimum([3, 1]), 1)
  79. assert_eq(minimum([100 cm, 3 m]), 100 cm)
  80. # mean
  81. assert_eq(mean([]), 0)
  82. assert_eq(mean([1]), 1)
  83. assert_eq(mean([1, 3]), 2)
  84. assert_eq(mean([1 m, 300 cm]), 2 m)
  85. # variance
  86. assert_eq(variance([]), 0)
  87. assert_eq(variance([1]), 0)
  88. assert_eq(variance([1, 1, 1, 1]), 0)
  89. assert_eq(variance([1, 2, 3, 4, 5]), 2.0)
  90. assert_eq(variance([1, -1, 1, -1]), 1.0)
  91. assert_eq(variance([-2, -4, -6, -8]), 5.0)
  92. # standard deviation
  93. assert_eq(stdev([]), 0)
  94. assert_eq(stdev([1]), 0)
  95. assert_eq(stdev([1, 1, 1, 1]), 0)
  96. assert_eq(stdev([1, 2, 3, 4, 5]), sqrt(2.0))
  97. # median
  98. assert_eq(median([1]), 1)
  99. assert_eq(median([1, 2]), 1.5)
  100. assert_eq(median([1, 2, 3]), 2)
  101. assert_eq(median([1, 2, 3, 4]), 2.5)
  102. assert_eq(median([1, 2, 3, 4, 5]), 3)
  103. # gcd
  104. assert_eq(gcd(0, 0), 0)
  105. assert_eq(gcd(0, 1), 1)
  106. assert_eq(gcd(1, 0), 1)
  107. assert_eq(gcd(1, 1), 1)
  108. assert_eq(gcd(2, 3), 1)
  109. assert_eq(gcd(2, 4), 2)
  110. assert_eq(gcd(3, 6), 3)
  111. assert_eq(gcd(4, 6), 2)
  112. assert_eq(gcd(4, 8), 4)
  113. assert_eq(gcd(6, 35), 1)
  114. assert_eq(gcd(1071, 462), 21)
  115. assert_eq(gcd(-8, 4), 4)
  116. assert_eq(gcd(-8, -4), 4)
  117. assert_eq(gcd(8, -4), 4)
  118. # lcm
  119. assert_eq(lcm(1, 1), 1)
  120. assert_eq(lcm(2, 3), 6)
  121. assert_eq(lcm(2, 4), 4)
  122. assert_eq(lcm(3, 6), 6)
  123. assert_eq(lcm(21, 6), 42)
  124. assert_eq(lcm(-8, 4), 8)
  125. assert_eq(lcm(8, -4), 8)