/** This looks at the Rosetta Code list of "pages with the most categories" and finds the tasks that do or don't have Frink implementations. */ url = "https://rosettacode.org/w/index.php?title=Special:MostCategories&limit=1000&offset=0" file = read[url] // DUDE, I couldn't figure out why this didn't match but there's a hidden // couple of Unicode right-to-left and then left-to-right markers before the // (123 categories) part. Nuckin futs. // \u200f\u200e (63 categories) printPreamble[] println[""] for [url, title, text, count] = file =~ %r/
  • (.*?)<\/a>.*?\((\d+) categories\)/igm { print["
  • "] newURL = url["https://rosettacode.org/", url] print["
    $title$count"] body = read[newURL] if body =~ %r/Frink/i print["Frink"] println[] } println["
    "] printPostamble[] printPreamble[] := { print[""" Rosetta Code Solutions in Frink

    Rosetta Code Solutions in Frink

    What's New * FAQ * Download * Frink Applet * Web Interface * Sample Programs * Frink Server Pages * Frink on Android * Donate

    The following are the most-solved problems on Rosetta Code with links to solutions in Frink.

    """] } printPostamble[] := { print["""

    Please send comments or questions to Alan Eliasen.

    """] }