Rosetta Code/Find bare lang tags: Difference between revisions

Use the   [http://rosettacode.org/[mw/api.php :API:Main_page|Media Wiki API]]   to test actual RC tasks.

<langsyntaxhighlight lang=Erlang>

<langsyntaxhighlight lang=go>package main

}</langsyntaxhighlight>

<langsyntaxhighlight lang=groovy>import java.util.function.Predicate

}</langsyntaxhighlight>

<langsyntaxhighlight lang=Haskell>import System.Environment

where url = "http://rosettacode.org/mw/index.php?action=raw&title="++title</langsyntaxhighlight>

<langsyntaxhighlight lang=unicon>import Utils # To get the FindFirst class

end</langsyntaxhighlight>

<langsyntaxhighlight lang=java>import java.net.URI;

}</langsyntaxhighlight>

<langsyntaxhighlight lang=julia>using Gumbo, AbstractTrees, HTTP, JSON, Dates

</langsyntaxhighlight>{{out}}

Total bare <lang> for language МК??-61/52: 62

Total bare <lang> for language МК??-61/52: 2

<langsyntaxhighlight lang=scala>import java.net.URI

}</langsyntaxhighlight>

<langsyntaxhighlight lang=Maple>#Did not count the tasks where languages tasks are properly closed

There are 29 bare lang tags in МК??-61/52

<langsyntaxhighlight lang="Mathematica">tasks[page_: ""] :=

Select[SortBy[langCounts, Keys], #[[2]] > 0 &];</langsyntaxhighlight>

71 in МК??-61/52 ([[Arithmetic-geometric mean]], [[Arithmetic-geometric mean/Calculate Pi]], [[Arithmetic/Complex]], [[Arithmetic/Integer]], [[Averages/Arithmetic mean]], [[Averages/Root mean square]], [[Balanced ternary]], [[Circles of given radius through two points]], [[Combinations and permutations]], [[Conditional structures]], [[Convert decimal number to rational]], [[Count in octal]], [[Day of the week]], [[Dot product]], [[Empty program]], [[Ethiopian multiplication]], [[Euler method]], [[Evaluate binomial coefficients]], [[Even or odd]], [[Execute a Markov algorithm]], [[Exponentiation operator]], [[Fibonacci sequence]], [[Find limit of recursion]], [[Greatest element of a list]], [[Haversine formula]], [[Higher-order functions]], [[Holidays related to Easter]], [[Horizontal sundial calculations]], [[Horner's rule for polynomial evaluation]], [[Integer comparison]], [[Integer sequence]], [[Jump anywhere]], [[Leap year]], [[Least common multiple]], [[Loops/Break]], [[Loops/Do-while]], [[Loops/Downward for]], [[Loops/For with a specified step]], [[Loops/Infinite]], [[Loops/While]], [[Main step of GOST 28147-89]], [[Middle three digits]], [[Modular inverse]], [[Monte Carlo methods]], [[Multifactorial]], [[Multiplication tables]], [[Nth root]], [[Pick random element]], [[Polynomial regression]], [[Primality by trial division]], [[Program termination]], [[Random numbers]], [[Real constants and functions]], [[Roots of a quadratic function]], [[Roots of unity]], [[Sequence of non-squares]], [[Standard deviation]], [[Sum and product of an array]], [[Sum digits of an integer]], [[Sum multiples of 3 and 5]], [[Sum of squares]], [[Ternary logic]], [[Towers of Hanoi]], [[Vector products]], [[Voronoi diagram]], [[Zero to the zero power]])

<langsyntaxhighlight lang=Nim>import algorithm, htmlparser, httpclient, json

client.processTaskPages(client.getPages(QdUri))</langsyntaxhighlight>

<langsyntaxhighlight lang=objeck>use Web.HTTP;

<langsyntaxhighlight lang=perl>my $lang = 'no language';

}</langsyntaxhighlight>

--

<langsyntaxhighlight lang=python>

1 in МК??-61/52 ['Ackermann function']

<langsyntaxhighlight lang=racket>

<langsyntaxhighlight lang=racket>

<syntaxhighlight lang="raku" perl6line>my $lang = '(no language)';

say .value, ' in ', .key for %blanks.sort;</langsyntaxhighlight>

<langsyntaxhighlight lang=rexx>/*REXX pgm finds and displays bare language (<lang>) tags without a language specified. */

call testHead /*process possible ==((header|αααaaa}}== */

call testLang /* " " <lang αααaaa> or <lang>*/

do #=1 for words(head); _= word(head, #) /*maybe show <lang> for language αααaaa */

if wordpos(head, heads)==0 then heads= heads head /*Is lang? Add──►Add--? list*/

return</langsyntaxhighlight>

<langsyntaxhighlight lang=Ruby>require "open-uri"

result.each{|k,v| puts "#{v.count} in #{k} (#{v.tasks})"}</langsyntaxhighlight>

2 in МК??-61/52 (["Greatest_element_of_a_list", "Greatest_element_of_a_list"])

<langsyntaxhighlight lang=rust>

<langsyntaxhighlight lang=Scala>// Map lines to a list of Option(heading -> task) for each bare lang tag found.

def mapReduce(inputs: Seq[BareLangFinder]) = reduced(inputs.flatMap(_.map))</langsyntaxhighlight>

2 in МК??-61/52 (Greatest_element_of_a_list)

<langsyntaxhighlight lang=tcl>package require Tcl 8.5

printResults</langsyntaxhighlight>

<langsyntaxhighlight ecmascriptlang=wren>import "./ioutil" for FileUtil

import "./pattern" for Pattern

import "./set" for Set

import "./sort" for Sort

import "./fmt" for Fmt

}</langsyntaxhighlight>

<langsyntaxhighlight lang=zkl>var [const] CURL=Import("zklCurl"),

}</langsyntaxhighlight>

2 in МК??-61/52: Greatest_element_of_a_list,Greatest_element_of_a_list