RosettaCodeUnimplemented.frink

View or download RosettaCodeUnimplemented.frink in plain text format



/** 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/mw/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)
println["<TABLE BORDER=1>"]
for [url, title, text, count] = file =~ %r/<li><a href="(.*?)" title="(.*?)">(.*?)<\/a>.*?\((\d+) categories\)/igm
{
   print["<TR>"]
   newURL = url["https://rosettacode.org/", url]
   print["<TD><A HREF=\"$newURL\" TARGET=\"_blank\">$title</A><TD>$count"]
   body = read[newURL]
   if body =~ %r/Frink/i
      print["<TD><A HREF=\"$newURL#Frink\" TARGET=\"_blank\">Frink</A>"]

   println[]
}
println["</TABLE>"]


View or download RosettaCodeUnimplemented.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 18659 days, 7 hours, 1 minutes ago.