sourcelibs/Search/demos/exam.xtl

1⍝!/usr/bin/env xetal 2⍝# Exam results: the top three, everyone's rank (ties share it), the 3⍝# score at each grade boundary, and who scored between 60 and 79. 4⍝# Run with "just demo Search exam". 5 6ˢʳ⁼u̲se< "Search" 7ᵗ⁼u̲se< "Strings" 8"q:" u̲se< "Lists" 9names ← "Ada" "Ben" "Cy" "Dee" "Eve" "Fay" "Gus" "Hal" "Ivy" "Jo" 10score ← 72 88 65 88 91 54 79 65 70 83 11 12", " ᵗj̲oin (3 ˢʳt̲opAt score) s̲elect names ⍝ the top three 13ˢʳr̲ank n̲eg score ⍝ rank 1 is the best; ties share 14⍝ Each score's grade, by where it falls among the boundaries 60 70 80 90. 15grade ← (1 + 60 70 80 90 q:b̲search score) s̲elect "FDCBA" 16grade 17 18", " ᵗj̲oin ((60 79) ˢʳb̲etween score) r̲eplicate names