random-clojure-task

#!/usr/bin/env ys-0

defn main():
  file name =:
    sh("ls Task").out:words:shuffle
    .map(task-ok)
    .remove(nil?)
    .first()

  url =: read("Task/$name/00-META.yaml"):yaml/load.from

  say: |
    File: $file
    From: $url#Clojure

    $(file:read)

defn task-ok(name):
  dir =: "Lang/Clojure/$name"
  when fs-d(dir):
    file =: sh("ls $dir").out:lines:first
    file =: "$dir/$file"
    when 10 <= read(file):lines.# <= 20: +
      [file name]