Update solutions for 0.1.81 cast changes

exercises/practice/bank-account/.meta/bank-account.ys

@@ -1,6 +1,6 @@
 !yamlscript/v0
 
-account =: atom(nil)
+account =: nil:A
 
 defn reset-test-state():
   reset! account: nil
@@ -14,28 +14,28 @@ defn bank-account(operations):
         .call(operation)
 
 defn- do-open(op):
-  when deref(account):
+  when account:D:
     die: 'account already open'
   reset! account: 0
 
 defn- do-close(op):
-  when-not deref(account):
+  when-not account:D:
     die: 'account not open'
   reset! account: nil
 
 defn- do-balance(op):
-  balance =: deref(account)
+  balance =: account:D
   if-not balance:
     die: 'account not open'
     else: balance
 
 defn- do-deposit(op):
-  when-not deref(account):
+  when-not account:D:
     die: 'account not open'
   swap! account +: op:get-amount
 
 defn- do-withdraw(op):
-  balance =: deref(account)
+  balance =: account:D
   when-not balance:
     die: 'account not open'
   amount =: op:get-amount

exercises/practice/circular-buffer/.meta/circular-buffer.ys

@@ -1,7 +1,7 @@
 !yamlscript/v0
 
 defn run(capacity operations):
-  buffer =: M(:B V(capacity * [nil]), :P 0)
+  buffer =: -{:B V(capacity * [nil]), :P 0}
   reduce _ buffer operations:
     fn(buffer op):
       op item pass want =:
@@ -10,14 +10,14 @@ defn run(capacity operations):
       args =:
         condp eq op:
           -'clear'     : -[buffer]
-          -'read'      : L(buffer pass want)
-          -'write'     : L(buffer pass item)
-          -'overwrite' : L(buffer pass item)
+          -'read'      : -[buffer pass want]
+          -'write'     : -[buffer pass item]
+          -'overwrite' : -[buffer pass item]
       value("op-$op"): args*
   =>: true
 
 defn op-clear(buffer):
-  M: :B V(buffer.B.# * [nil]) :P 0
+  hash-map: :B V(buffer.B.# * [nil]) :P 0
 
 defn op-read(buffer pass want):
   cell =: buffer.B.nth(buffer.P)
@@ -26,8 +26,9 @@ defn op-read(buffer pass want):
       die: S("Can't read:\ " buffer)
     when cell != want:
       die: "Bad read:\ $cell != $want ($buffer)"
-  M: :B update-in(buffer.B [buffer.P] constantly(nil))
-     :P (buffer.P.++ % buffer.B.#)
+  hash-map:
+    :B update-in(buffer.B [buffer.P] constantly(nil))
+    :P (buffer.P.++ % buffer.B.#)
 
 defn op-write(buffer pass item):
   B P =: buffer.slice(q(B P))

exercises/practice/etl/.meta/etl.ys

@@ -3,4 +3,4 @@
 defn transform(legacy):
   into {}:
     for [score letters] legacy, letter letters:
-      V: lc(letter) score:N
+      vector: lc(letter) score:N

exercises/practice/pascals-triangle/.meta/pascals-triangle.ys

@@ -7,5 +7,5 @@ defn rows(count):
         or _ [1]:
           when row > 1:
             mapv _ (-1 .. row.sub(2)):
-              \(last(tri).get(_):N.or(0) +
-                last(tri).get(_.++):N.or(0))
+              \(last(tri).get(_ 0):N +
+                last(tri).get(_.++).or(0):N)

exercises/practice/raindrops/.meta/raindrops.ys

@@ -1,7 +1,7 @@
 !yamlscript/v0
 
 defn convert(number):
-  ps =: M(3 'Pling' 5 'Plang' 7 'Plong')
+  ps =: -{3 'Pling' 5 'Plang' 7 'Plong'}
   words =:
     mapcat _ [3 5 7]:
       fn(n):