@ironm00n/pyret-lang 0.0.1 → 0.0.2

package/tests/pyret/tests/test-array.arr

@@ -1,413 +0,0 @@
-#lang pyret
-
-import global as G
-include from G: raw-array-duplicate end
-
-fun negate(f): lam(x): not(f(x)) end end
-
-check:
-  a1 = [array: 1, 2, 3]
-
-  a1.get-now(-1) raises "negative"
-  a1.get-now(1 / 2) raises "integer"
-
-  non-nums = [list: true, false, "not-a-num", {}, [list: ], lam(): 5 end, method(self): 10 end]
-  for each(n from non-nums): a1.get-now(n) raises "Number" end
-end
-
-check:
-  a = array-of("a", 3)
-  a is=~ [array: "a", "a", "a"]
-
-  array-set-now(a, 1, "b")
-  a is=~ [array: "a", "b", "a"]
-
-  array-get-now(a, 1) is "b"
-
-  array-length(a) is 3
-  l = array-to-list-now(a)
-  l is [list: "a", "b", "a"]
-
-  # Updating doesn't change the old to-list value
-  array-set-now(a, 2, "c")
-  l is [list: "a", "b", "a"]
-  l2 = array-to-list-now(a)
-  l2 is [list: "a", "b", "c"]
-end
-
-check:
-  a1 = build-array(lam(i): i * i end, 6)
-  a1.to-list-now() is [list: 0, 1, 4, 9, 16, 25]
-  a2 = for build-array(i from 7):
-    (i * i) - i
-  end
-  a2.to-list-now() is [list: 0, 0, 2, 6, 12, 20, 30]
-end
-
-check:
-  a1 = [array: 1, 2, 3]
-  a1.length() is 3
-
-  a1 is a1
-  a1 is<=> a1
-
-  a2 = [array: 1, 2, 3]
-  a2.length() is 3
-
-  a1 is-not a2
-  a1.to-list-now() is a2.to-list-now()
-
-  a1 is-not<=> a2
-  a2 is-not<=> a1
-
-  a3 = [array: 4, "a", 6]
-  a3.length() is 3
-
-  a1.to-list-now() is-not a3.to-list-now()
-  a3.to-list-now() is-not a1.to-list-now()
-
-end
-
-check:
-
-  a1 = [array: 1, 2, 3]
-
-  a1 satisfies is-array
-
-  a1.get-now(0) is 1
-  a1.get-now(1) is 2
-  a1.get-now(2) is 3
-  a1.get-now(3) raises "too large"
-
-  a1.set-now(1, 5)
-  a1 satisfies identical(_, a1)
-  a1.get-now(1) is 5
-
-  a1.set-now(1, 3)
-  a1.set-now(2, 6)
-  a1 satisfies identical(_, a1)
-  a1.set-now(1, 3)
-  a1.set-now(2, 6)
-  a1 is a1
-  a1.get-now(1) is 3
-  a1.get-now(2) is 6
-
-  a1.length() is 3
-
-end
-
-check:
-  a1 = raw-array-of(0, 3)
-  raw-array-set(a1, 0, 1)
-  raw-array-set(a1, 1, 2)
-  raw-array-set(a1, 2, 3)
-
-  raw-array-get(a1, 0) is 1
-  raw-array-get(a1, 1) is 2
-  raw-array-get(a1, 2) is 3
-  raw-array-get(a1, 3) raises "too large"
-
-  raw-array-set(a1, 1, 5) satisfies identical(_, a1)
-  raw-array-get(a1, 1) is 5
-
-  raw-array-set(a1, 1, 3) ^ raw-array-set(_, 2, 6) satisfies identical(_, a1)
-  raw-array-get(a1, 1) is 3
-  raw-array-get(a1, 2) is 6
-
-  raw-array-length(a1) is 3
-
-  raw-array-length([array: 1, 2]) raises "RawArray"
-end
-
-check:
-  a = [array: ]
-  a.length() is 0
-  a.get-now(0) raises "too large"
-  a.get-now(1) raises "too large"
-
-  a.set-now(0, "val") raises "too large"
-end
-
-check:
-  a1 = raw-array-of("init", 5)
-
-  a1 satisfies is-raw-array
-
-  raw-array-length(a1) is 5
-  raw-array-get(a1, 5) raises "too large"
-  a2 = [array: "init","init","init","init","init"]
-
-  raw-array-to-list(a1) is a2.to-list-now()
-  raw-array-set(a1, 0, "update")
-  a1 satisfies _ <> a2
-  raw-array-get(a1, 0) is "update"
-  for each(i from range(1, 4)): raw-array-get(a1, i) is "init" end
-
-end
-
-check:
-  arr = for raw-array-build-opt(i from 100):
-    if num-modulo(i, 5) == 0:
-      some(i * i)
-    else:
-      none
-    end
-  end
-
-  arr is=~ [raw-array: 0, 25, 100, 225, 400, 625, 900, 1225, 1600, 2025, 2500, 3025, 3600, 4225, 4900, 5625, 6400, 7225, 8100, 9025]
-
-  fun slowly(n):
-    if n <= 0: nothing
-    else: slowly(n - 1)
-    end
-  end
-
-  fun slow(i) block:
-    slowly(3000)
-    if num-modulo(i, 2) == 0:
-      some(i)
-    else:
-      none
-    end
-  end
-  arr2 = raw-array-build-opt(slow, 1000)
-  raw-array-length(arr2) is 500
-  for each(i from range(0, 500)): raw-array-get(arr2, i) is i * 2 end
-end
-
-check:
-  torepr([array: 1,2,"3"]) is '[array: 1, 2, "3"]'
-  torepr([array: ]) is '[array: ]'
-  torepr(raw-array-of(3, 3)) is '[raw-array: 3, 3, 3]'
-end
-
-check:
-  fun f(v :: Array<Number>) block:
-    when not(is-array(v)): raise("not an Array") end
-    v
-  end
-  f([list:]) raises "Array"
-  f([array: ]).to-list-now() is [list: ]
-  f([array: ]) satisfies is-array
-end
-
-check "array filter method":
-  a = [array: "apple", "banana", "plum"]
-  p-words = a.filter(lam(s):
-      string-contains(s, "p")
-    end)
-  p-words is=~ [array: "apple", "plum"]
-end
-
-check "array map method":
-  a = [array: "apple", "banana", "plum"]
-  lengths = a.map(string-length)
-  lengths is=~ [array: 5, 6, 4]
-end
-
-check "array fold method":
-  a = [array: "a", "b", "c"]
-  str = a.fold(lam(str, elt, i):
-    if i < (a.length() - 1):
-      str + elt + ": " + tostring(i) + ", "
-    else:
-      str + elt + ": " + tostring(i)
-    end
-  end, "", 0)
-  str is "a: 0, b: 1, c: 2"
-end
-
-check:
-  a1 = [array: 5, 6, 7]
-  a2 = [array: 0, 3, 99, -1, 7]
-
-  c = a1.concat(a2)
-  c is=~ [array: 5, 6, 7, 0, 3, 99, -1, 7]
-  
-  a1 is=~ [array: 5, 6, 7]
-  a2 is=~ [array: 0, 3, 99, -1, 7]
-end
-
-check:
-  a = [array: 1, 2, 3]
-  b = a.duplicate()
-  a is=~ b
-  b is=~ a
-
-  a is<=> a
-  a is-not<=> b
-  b is-not<=> a
-  b is<=> b
-
-  a.set-now(1, 1)
-
-  a.get-now(1) is 1
-  b.get-now(1) is 2
-
-  c = [array: {1; 2}, {3; 4}]
-  d = c.duplicate()
-
-  c is-not<=> d
-  c.get-now(0) is<=> d.get-now(0)
-  c.get-now(0) is<=> d.get-now(0)
-end
-
-    
-check:
-  a = [array: 9, 2, 3, 1]
-  asc = a.sort-nums(true)
-  a is=~ [array: 1, 2, 3, 9]
-  asc is<=> a
-  
-  desc = a.sort-nums(false)
-  a is=~ [array: 9, 3, 2, 1]
-  desc is<=> a
-end
-    
-
-check:
-  a = [array: "banana", "plum", "apple"]
-  asc = a.sort-by(string-length, true)
-  
-  asc is=~ [array: "plum", "apple", "banana"]
-  asc is-not<=> a
-end
-
- 
-    
-
-check:
-  a1 = raw-array-of(3, 3)
-  a2 = raw-array-of(3, 3)
-  a1 is=~ a2
-  a2 is=~ a1
-
-  raw-array-set(a1, 0, "f")
-  a1 is-not<=> a2
-  a2 is-not<=> a1
-  a1 is-not=~ a2
-  a2 is-not=~ a1
-end
-
-data D:
-  | single
-  | multi(a, b)
-end
-check:
-  a = [array: single, multi(1, "2")]
-  torepr(a) is "[array: single, multi(1, \"2\")]"
-  a.set-now(0, a.get-now(1))
-  a.to-list-now() is [list: multi(1, "2"), multi(1, "2")]
-  a.get-now(0) satisfies identical(_, a.get-now(1))
-  a.length() is 2
-end
-
-check:
-  #  myarr = [array: 1, 2, 3, 4, 5]
-  #  answer = for arrays.array-fold(acc from 0, elt from myarr, ix from 0):
-  #    acc + elt
-  #  end
-  #  answer is 15
-
-  bigarr = raw-array-of(2, 1000)
-  answer2 = for raw-array-fold(acc from 0, elt from bigarr, ix from 0):
-    acc + elt
-  end
-  answer2 is 2 * 1000
-
-  answer3 = for raw-array-fold(acc from 0, elt from bigarr, ix from 0):
-    for raw-array-fold(acc2 from acc, elt2 from bigarr, ix2 from 0):
-      acc2 + elt2
-    end
-  end
-  answer3 is 2 * 1000 * 1000
-
-  bigarr2 = raw-array-of(3, 1000)
-  answer4 = for raw-array-fold(acc from 0, elt from bigarr, ix from 0):
-    acc + (elt * for raw-array-fold(acc2 from 0, elt2 from bigarr2, ix2 from 0):
-        acc2 + elt2
-      end)
-  end
-  answer4 is  3 * 1000 * 2 * 1000
-end
-
-check "raw-array-fold nonzero start indices":
-  a = [raw-array: 100, 1000, 10000]
-  ans = for raw-array-fold(acc from 0, elt from a, ix from 7):
-    acc + (elt * ix)
-  end
-  ans is 98700
-
-  a2 = [raw-array: 100, 1000, 10000]
-  ans2 = for raw-array-fold(acc from 0, elt from a, ix from -3):
-    acc + (elt * ix)
-  end
-  ans2 is -12300
-end
-
-check:
-  [array: 1, 2, 3] is-not== [array: 1, 2, 3]
-  [array: 1, 2, 3] is=~ [array: 1, 2, 3]
-  [array: 1, 2] is-not=~ [array: 1, 2, 3]
-
-  a1 = [array: 1, 2]
-  a2 = [array: 1, 3]
-  a1 is-not=~ a2
-
-  a2.set-now(1, 2)
-  a1 is=~ a2
-end
-
-check "Raw Array Duplication":
-  a = [raw-array: 1, 2, 3]
-  b = raw-array-duplicate(a)
-
-  a is=~ b
-  b is=~ a
-
-  a is<=> a
-  b is<=> b
-
-  a is-not<=> b
-  b is-not<=> a
-
-  raw-array-set(a, 1, 1)
-
-  raw-array-get(a, 1) is 1
-  raw-array-get(b, 1) is 2
-end
-
-check:
-  fun loop(x):
-    if x < 0: 0
-    else:
-      x + loop(x - 1)
-    end
-  end
-  big-array = raw-array-build(lam(x): x end, 5000)
-
-  filtered = raw-array-filter(lam(x) block:
-      loop(1000)
-      num-modulo(x, 2) == 0
-    end, big-array)
-
-  filtered is=~ raw-array-build(lam(x): x * 2 end, 2500)
-end
-
-check:
-  raw-array-build(lam(x): x end, 2.5) raises "NumInteger"
-  raw-array-build(lam(x): x end, -2) raises "NumNonNegative"
-  raw-array-build(lam(x): x end, 9007199254740992) raises "larger than"
-  # This constant is one larger than MAX_SAFE_INTEGER in JS
-  raw-array-build(lam(x): x end, 4294967296) raises "larger than"
-
-  raw-array-build-opt(lam(x): x end, 2.5) raises "NumInteger"
-  raw-array-build-opt(lam(x): x end, -2) raises "NumNonNegative"
-  raw-array-build-opt(lam(x): x end, 9007199254740992) raises "larger than"
-  raw-array-build-opt(lam(x): x end, 4294967296) raises "larger than"
-
-  raw-array-of("a", 2.5) raises "NumInteger"
-  raw-array-of("a", -2) raises "NumNonNegative"
-  raw-array-of("a", 9007199254740992) raises "larger than"
-  raw-array-of("a", 4294967296) raises "larger than"
-end

package/tests/pyret/tests/test-bar-chart.arr

@@ -1,141 +0,0 @@
-use context essentials2020
-#import chart as GC
-import charts as VC
-import color as C
-import image-typed as I
-import lists as L
-#|
-
-colors =       [list: C.red,   C.orange, C.yellow, C.green, C.blue,   C.purple, C.pink]
-langs =        [list: "Pyret", "OCaml",  "C",      "C++",   "Python", "Racket", "Smalltalk"]
-popularities = [list: 10,      -6,        1,        3,       5,        8,        9]
-# images = colors.map(I.circle(30, I.mode-solid, _))
-images = colors.map(I.triangle(30, I.mode-solid, _))
-states = [list: 'CA', 'TX', 'NY', 'FL', 'IL', 'PA']
-ages = [list:
-    'Under 5 Years',
-    '5 to 13 Years',
-    '14 to 17 Years',
-    '18 to 24 Years',
-    '25 to 44 Years',
-    '45 to 64 Years',
-    '65 Years and Over']
-
-va-series = VC.from-list.grouped-bar-chart(
-  states,
-  [list:
-    [list: 2704659,4499890,2159981,3853788,10604510,8819342,4114496],
-    [list: 2027307,3277946,1420518,2454721,7017731,5656528,2472223],
-    [list: 1208495,2141490,1058031,1999120,5355235,5120254,2607672],
-    [list: 1140516,1938695,925060,1607297,4782119,4746856,3187797],
-    [list: 894368,1558919,725973,1311479,3596343,3239173,1575308],
-    [list: 737462,1345341,679201,1203944,3157759,3414001,1910571]],
-  ages)
- # .horizontal(true)
- .colors(colors.reverse())
-  .add-pointers([list: 0.2500000, 0.3500000], [list: "hi", "bye"])
-  .stacking-type(VC.relative)
-  .pointer-color(C.maroon)
-  # .intervals(for map_n(series from 0, _ from states):
-  #   for map_n(legend from -5, _ from ages):
-  #     [list: series, legend, (series + legend)].map(500000 * _)
-  #   end
-  # end)
-# .annotations(states.map({(s): ages.map({(a): some(s + "/" + a)})}))
-#  .annotations(langs.map({(l): some(string-explode(l).reverse().join-str(""))}))
- # .intervals(for map_n(i from 0, _ from colors):
- #   [list: -5 + i, i, 5 + i, 3 + i]
- # end)
- .interval-color(C.chartreuse)
- .format-axis({(v): "Label " + to-string(v)})
-
-#|
-vb-series = VC.from-list.#|image-|#bar-chart(#|images, |#langs, popularities)
-  .horizontal(true)
-  .colors(colors.reverse())
-  .add-pointers([list: 2.5, 3.5], [list: "hi", "bye"])
-  .pointer-color(C.maroon)
-  .annotations(langs.map({(l): some(string-explode(l).reverse().join-str(""))}))
-  .intervals(for map_n(i from 0, _ from colors):
-    [list: -5 + i, i, 5 + i, 3 + i]
-  end)
-  .interval-color(C.chartreuse)
-  .format-axis({(v): "Label " + to-string(v)})
-
-rendered = VC.render-chart(va-series).background-color(C.gray).title("Hi!")
-.x-axis("This way!").y-axis("That way!")
-|#
-
- 
-
-rendered = VC.render-chart(VC.from-list.exploding-pie-chart(
-    range(1, 10).map({(i): "Label " + to-string(i)}),
-    range(1, 10).map(_ * 3),
-    range(1, 10).map({(i): 0.05 * (num-sin(i) + 1)}))
-    .rotate(90)
-    .collapse-threshold(0.07)
-    .piehole(0.25)
-  ).background-color(C.gray)
-
-I.save-image(rendered.get-image(), 'test-bar-chart.png')
-
-|#
-
-
-# va-box = VC.from-list.box-plot(for map(x from range(0, 5)):
-#     # for map(y from range(0, 10) + range(50, 60) + range(100, 200)):
-#     #   (100 * x) + num-sqr(y) + num-expt(5, x)
-#     # end
-#     (range(40, 43) + range(70, 73) + range(50, 60)).map(_ + x)
-#   end).color(C.steel-blue).horizontal(true)
-# rendered = VC.render-chart(va-box).background-color(C.gray).title("Hi!")
-# #.min(15500).max(30500)
-# .x-axis("This way!").y-axis("That way!")
-
-# va-hist = VC.from-list.labeled-histogram(
-#   range(0, 500).map(lam(x): "foo " + num-to-string(x) end),
-#   L.shuffle(range(0, 500).map(num-sqrt)))
-# rendered = VC.render-chart(va-hist).background-color(C.gray)
-#   .x-axis("This way!").y-axis("That way!").height(600)
-# N = 500
-# vals = range(0, N)
-# colors = vals.map({(v): I.color(num-modulo(v, 250), num-max(0, v - 250), 0, 1)})
-# imgs = colors.map({(c): I.circle(30, I.mode-solid, c)})
-
-
-# rendered = VC.render-chart(VC.from-list.image-histogram(imgs, vals.map(num-sqrt))).height(452)
-
-
-ages = [list: 10.1, 0.4, 2, 5, 4.7, 0.3, 1, 1, 0.3, 0.8, 4, 0.4, 6.2, 1, 3, 10.7, 5.8, 3, 3, 1, 1.4, 8.3, 3.3, 5, 2.6, 4, 0.9, 4, 8.4, 0.5, 2, 11.3, 0.1, 8, 2, 0.8, 3.5, 1, 3, 5.3, 11, 2, 1, 8.3, 3, 12, 0.29, 5, 9.3, 7.3, 9.2, 1.1, 1, 9.5, 0.9, 3, 9, 2, 7.6, 1, 1, 7, 0.9, 2, 0.6, 3, 4, 5.7, 0.1, 2.2, 3, 10.9, 3, 12, 9.9, 6.3, 10, 0.7, 0.3, 0.3, 12.8, 12.4, 4.3, 1, 2, 1, 4.4, 3, 11.1, 0.3, 3.3, 3, 0.11, 7.8, 2.8, 3, 4.2, 0.8, 0.2, 0.6, 7, 5, 4.2, 0.5, 5, 3.7, 0.2, 9.9, 5.2, 6.3, 1, 8, 0.7, 3.2, 5, 5.5, 11, 2, 8.9, 5.3, 3.1, 5, 3, 0.3, 3.1, 2.4, 12.6, 0.25, 0.3, 12.2, 6.3, 16, 7, 8, 1.8, 6, 12.6, 5, 12, 2.9, 6.8, 0.3, 9.8, 0.2, 8.6, 2.7, 7.25, 4, 3, 8.6, 12, 6.9, 3, 6.1, 8, 6.7, 0.7, 0.25, 4.1, 14, 3, 9, 0.7, 1, 8.8, 8.2, 1, 3, 1, 0.2, 2, 10.5, 1, 2, 7.1, 0.3, 2.1, 8.5, 2.3, 12.9, 5, 2, 10, 0.3, 3.8, 12, 0.1, 0.3, 7.2, 6.4, 12.7, 0.1, 9.6, 0.2, 12.5, 0.2, 5.8, 2.5, 1, 3.4, 11.6, 8, 7.5, 1.8, 9.4, 0.1, 0.3, 9.1, 2, 4.9, 9.6, 0.5, 1.6, 0.6, 0.5, 3, 10.7, 5.1, 4, 0.5, 4.4, 0.6, 3, 4, 3, 1.4, 7, 5, 3.7, 2.1, 1, 10, 9.5, 0.6, 2, 2, 3.2, 4, 7.1, 1.2, 10.3, 12, 10, 1.4, 10.1, 11.9, 1, 5.2, 2.2, 4, 5, 10.4, 6, 0.7, 8, 4, 11.7, 3, 0.8, 6.6, 9.9, 4.3, 2, 0.7, 6.7, 2, 5.2, 11.4, 0.5, 3, 7.7, 13.9, 6.1, 0.4, 5.4, 0.3, 0.4, 0.1, 0.3, 9.6, 0.1, 10, 12.1, 3, 5, 9, 1, 10.4, 10.6, 3.5, 9.5, 0.4, 11.5, 0.3, 1, 4.5, 3, 0.9, 7, 5, 0.4, 8.7, 5.5, 0.6, 2, 8.1, 1, 5.8, 6.9, 3.2, 10, 6.2, 0.3, 2.4, 0.5, 1, 2, 1, 5, 8.7, 7.9, 11.7, 6.9, 3.9, 0.9, 5.4, 7, 3, 12.5, 10.2, 6.8, 8.1, 7.8, 0.7, 10.2, 2.3, 3.1, 2, 0.6, 18, 8, 2, 8.5, 3, 2, 2, 3.6, 12.3, 4, 10.8, 0.2, 1.5, 3.6, 12.2, 5, 2.6, 0.6, 5.1, 4, 0.1, 4, 2, 5, 2.5, 2, 6.1, 4.2, 1, 1, 1.5, 2, 3, 2, 12.7, 3.3, 8.2, 0.1, 0.9, 5.7, 0.4, 3.8, 9.8, 1, 4.5, 7.2, 9.4, 0.1, 5, 4, 0.5, 1, 3, 0.1, 8.9, 8.3, 6.8, 3.4, 0.2, 10.8, 5.8, 0.4, 3, 2, 12, 12.5, 12.4, 4.8]
-weights = [list: 40, 5.2, 32, 0.5, 7.6, 33, 1.7, 5, 22, 0.07, 4, 2.7, 8.5, 1.8, 8, 24, 8.5, 4.7, 63, 1.9, 72, 82, 42, 7.7, 9.9, 77, 0.1, 53, 61, 0.1, 4.1, 9.7, 15, 76.1, 2.9, 0.19, 66, 0.08, 3.6, 8.2, 123, 1.8, 2.1, 12, 1.6, 21, 3.5, 6, 8.6, 7.9, 8.5, 7.7, 3, 7.4, 8.6, 4.6, 0.35, 7, 84, 2.6, 3.4, 59, 5.8, 0.3, 40, 3.7, 30, 67, 3.6, 8.2, 1, 8.6, 1.7, 9.8, 70, 63, 0.22, 4.4, 33, 39, 10.3, 8.4, 44, 3.9, 8, 3.3, 9.7, 1.5, 8.3, 4, 9, 6, 0.8, 33, 73, 3.2, 68, 80, 12, 6.8, 73, 68, 44, 6, 4, 8.4, 2, 80, 10.4, 73, 90, 0.2, 0.09, 7.3, 5, 7.1, 6.9, 3.1, 9.6, 82, 9.1, 7, 3.5, 4.4, 7.5, 82, 8.2, 3, 7, 9.8, 76, 9.2, 72, 54, 7.6, 0.28, 7.9, 7, 9.9, 67, 9.5, 2.8, 70, 8.5, 9.7, 110, 86, 92, 5, 9.5, 7.5, 25, 1.2, 44, 88, 95, 0.18, 3.2, 8.7, 60, 1.6, 69, 6.4, 5, 72, 8.6, 2.1, 13.4, 2.6, 31, 3.4, 9.9, 2, 3.3, 40, 8.8, 45, 62, 10, 8.9, 2, 89, 9.1, 2.5, 36, 0.2, 7.3, 16, 46, 9.9, 10.4, 9, 9.8, 17, 14, 0.075, 97, 55, 4.2, 10, 11, 172, 10.3, 67, 62, 26, 3.4, 8.5, 4.9, 64, 42, 5, 12, 0.09, 6.3, 45.4, 9.1, 8.9, 62, 3, 78, 0.14, 51.6, 0.2, 52.8, 8, 8.8, 112, 49, 9.6, 1, 59, 87, 19, 7.4, 2, 23, 3, 51, 6.5, 9.1, 45, 161, 39, 5, 9.4, 2, 75, 58, 0.45, 3, 7.8, 4.3, 5.2, 9.9, 8.7, 8.9, 35.3, 0.11, 19, 11, 16, 3.3, 8.1, 52, 7, 35, 7.6, 0.075, 0.31, 63, 51, 51, 3.4, 47, 17, 56, 0.03, 3, 58, 2.6, 7.3, 8.2, 0.25, 24, 60, 5, 50, 7.6, 7.7, 82, 42, 9.6, 4, 28.9, 70, 2.3, 43, 63, 5, 3, 27, 103, 64, 3.8, 10.3, 2.1, 10, 81, 8.7, 7.4, 86, 0.06, 8.7, 7, 4, 3, 6.5, 7, 8.2, 107, 44, 8.6, 8.6, 9.3, 8.9, 8.4, 3.5, 8.6, 8.1, 71, 40, 71, 55, 29, 65, 79, 4.7, 3.7, 0.375, 0.3, 6.5, 78, 3.5, 0.1, 1, 7.4, 9.6, 6, 38, 0.8, 46, 84, 39, 8.1, 15, 54, 85, 5, 1, 4, 1.6, 1, 7.2, 3.8, 8.5, 8.6, 4, 1.7, 0.19, 82, 48, 4.2, 18, 9.3, 70, 3, 8.3, 8.5, 20, 8.8, 8.3, 2.5, 54, 72, 30, 14, 55, 5, 35, 3.2, 4.2, 13, 51, 9.3, 32, 17, 2.8, 8.8, 55, 34, 100, 4, 5.5, 8.5, 5.7, 9.6]
-names = [list:
-
-    "Abbey", "Abigail", "Ada", "Adele", "Alex", "Alf", "Amie", "Amy", "Annie", "Archie", "Aries", "Armanti", "Arnie", "Ashes", "Astro", "Audi", "Austin", "Autumn", "Axle", "Babbles", "Bacchus", "Bam-bam", "Banjo", "Baron", "Beamer", "Beanie", "Bear", "Ben", "Bibbles", "Billie", "Billy", "Binky", "Bitsy", "Bo", "Bo", "Bob", "Bobbie", "Bode", "Bongo", "Boo", "Boo-boo", "Booker", "Boomer", "Boone", "Bootie", "Boots", "Bosley", "Boss", "Bozley", "Bradley", "Brando", "Brindle", "Brittany", "Brownie", "Bruno", "Brutus", "Bubba", "Buck", "Buckeye", "Bucko", "Bucky", "Budda", "Buddie", "Buddy", "Bugsey", "Bugsy", "Bullet", "Bully", "Buster", "Butch", "Butterscotch", "Callie", "Calvin", "Camille", "Chad", "Chamberlain", "Champ", "Chanel", "Chaos", "Charles", "Chaz", "Chester", "Chewie", "Chi Chi", "Chico", "Chiquita", "Chrissy", "Chucky", "Cindy", "Clancy", "Coco", "Coconut", "Codi", "Cody", "Connor", "Cooper", "Corky", "Cubby", "Curly", "Cutie", "Daffy", "Daisy", "Dakota", "Darcy", "Dash", "Dave", "Dempsey", "Dexter", "Diamond", "Dickens", "Dino", "Dixie", "Dixon", "Dobie", "Dodger", "Dreamer", "Duchess", "Dude", "Duncan", "Dusty", "Dutchess", "Dylan", "Earl", "Edgar", "Einstein", "Ellie", "Elvis", "Ember", "Erin", "Ernie", "Fancy", "Felix", "Felix", "Ferris", "Figaro", "Flake", "Flash", "Flopsy", "Flower", "Floyd", "Foxy", "Frankie", "Franky", "Freckles", "Fred", "Freddie", "Friday", "Fritz", "Fritz", "Frosty", "Garfield", "George", "Gila", "Gilda", "Gir", "Girl", "Goober", "Gordon", "Gracie", "Greenie", "Grizzly", "Gromit", "Gucci", "Haley", "Happy", "Harpo", "Heathcliff", "Hercules", "Hercules", "Higgins", "Holly", "Hudson", "Huey", "India", "Indy", "Inez", "Jade", "Jake", "Jamie", "Jenny", "Jess", "Jetta", "JJ", "Joe", "Jolly", "Joy", "Jujo", "Julius", "June", "Justice", "Kali", "Kasey", "Kato", "Kayla", "KC", "Kelsey", "Kerry", "Kid", "Klaus", "Koba", "Kona", "Kujo", "Lacey", "Laney", "Lili", "Lilly", "Lincoln", "Linus", "Lizzy", "Logan", "Lola", "Lou", "Lucas", "Luci", "Lucky", "Lucky", "Luke", "Lulu", "Luna", "Lynx", "Macintosh", "Magnolia", "Maple", "Marble", "Max", "Mia", "Miaulis", "Midnight", "Miles", "Minnie", "Misha", "Miso", "Miss Kitty", "Missy", "Mittens", "Mittens", "Mitzy", "Mo", "Molly", "Mona", "Moose", "Motordude", "Mr. Peanutbutter", "Muffin", "Mugsy", "Murphy", "Nakita", "Nana", "Natasha", "Nemo", "Newt", "Newton", "Nibblet", "Nico", "Niki", "Nikita", "Niko", "Nori", "North", "Norton", "Nugget", "Olivia", "Opie", "Oscar", "Otis", "Paddington", "Paddy", "Pandora", "Parker", "Pasha", "Patches", "Patsy", "Pedro", "Penny", "Pepe", "Peter", "Petey", "Phantom", "Phoenix", "Pickles", "Piggy", "Piglet", "Pinto", "Polly", "Pooch", "Pooh", "Porche", "Porky", "Porter", "Princess", "Puppy", "Queenie", "Quinn", "Rebel", "Rex", "Riggs", "Rocco", "Rocko", "Roland", "Roman", "Rosebud", "Rover", "Roxanne", "Roxie", "Ruchus", "Ruffe", "Ruthie", "Sabine", "Sabrina", "Sailor", "Salem", "Salty", "Sam", "Samantha", "Sandy", "Sara", "Sarge", "Sasha", "Sasha", "Sassie", "Sassy", "Savannah", "Scooter", "Scout", "Shadow", "Shasta", "Sheba", "Sheena", "Shiner", "Sienna", "Silky", "Silver", "Simba", "Simone", "Sissy", "Skeeter", "Skipper", "Skittles", "Slinky", "Smudge", "Sneakers", "Snowcone", "Snuffles", "Snuffles", "Snuggles", "Sparkle", "Spencer", "Spookey", "Spot", "Stella", "Stich", "Stormy", "Sugar", "Sunday", "Sunflower", "Susie", "Susie Q", "Sydney", "T-Bone", "Tabby", "Taco", "Tammy", "Tanner", "Tess", "Thor", "Tiggy", "Tiki", "Tinkerbell", "Tinkles", "Titus", "Toby", "Toggle", "Toni", "Toto", "Tracker", "Tramp", "Trigger", "Tripod", "Trouble", "Troy", "Tuck", "Turner", "Twiggy", "Ty", "Valinto", "Vinnie", "Vinny", "Vito", "Volvo", "Waddles", "Wade", "Wallace", "Walter", "Wayne", "Westie", "Whiskers", "Whispy", "Whitie", "Whiz", "Wiggles", "Wolfie", "Wrinkles", "Xena", "Yeller", "Yellow", "Zack", "Ziggy"]
-
-PI = ~3.14159265358979323
-
-
-va-int = VC.from-list.labeled-interval-chart(names, range(0, weights.length()), weights, 
-  range(0, weights.length()).map({(n): 20 * num-sin((n * 2 * PI) / 360)}))
-  .color(C.blue).pointer-color(C.yellow)
-va-scatter = VC.from-list.scatter-plot(weights, ages)
-va-fun = VC.from-list.function-plot(num-tan)
-va-line = VC.from-list.line-plot(weights.take(30), ages.take(30))
-rendered = VC.render-charts([list: va-int, va-scatter, va-fun, va-line])
-  .background-color(C.gray)
-  .x-axis("This way!")
-  .y-axis("That way!")
-  .x-min(-10).x-max(40)
-  .y-min(-50).y-max(60)
-#  .height(400).width(500)
-
-# labels = range(0, weights.length()).map({(n): "Label " + to-string(n)})
-# images = ages.map({(n): I.star(50, I.mode-outline, I.red)})
-  
-# scatter = VC.from-list.image-line-plot(images, ages, weights)
-#   .legend("Hi!").trendline-type(VC.polynomial(3)).point-size(15)
-
-# # rendered = VC.render-chart(VC.from-list.histogram(vals).bin-width(7.15)).height(400).background-color(C.gray)
-# rendered = VC.render-chart(scatter).height(600).background-color(C.gray)
-
-I.save-image(rendered.get-image(), 'test-bar-chart.png')

package/tests/pyret/tests/test-binops.arr

@@ -1,44 +0,0 @@
-provide *
-
-import error as E
-import either as Eth
-
-check:
-  fun get-err(thunk):
-    cases(Eth.Either) run-task(thunk):
-      | left(v) => "not-error"
-      | right(v) => exn-unwrap(v)
-    end
-  end
-
-  "a" + "b" is "ab"
-  4 + 5 is 9
-  
-  e1 = get-err(lam(): {} + "a" end)
-  e1 satisfies E.is-num-string-binop-error
-  e1.val1 is {}
-  e1.val2 is "a"
-
-  o = {
-      arr: [list: 1,2,3],
-      method _plus(self, other): for lists.map2(a1 from self.arr, a2 from other.arr): a1 + a2 end end
-    }
-  o2 = { arr: [list: 3,4,5] }
-  o + o2 is [list: 4,6,8]
-
-  e2 = get-err(lam(): true * 5 end)
-  e2 satisfies E.is-numeric-binop-error
-  e2.val1 is true
-  e2.val2 is 5
-  
-  e3 = get-err(lam(): true - 5 end)
-  e3 satisfies E.is-numeric-binop-error
-  e3.val1 is true
-  e3.val2 is 5
-  
-  e4 = get-err(lam(): true / 5 end)
-  e4 satisfies E.is-numeric-binop-error
-  e4.val1 is true
-  e4.val2 is 5
-  
-end