Rosetta Code/Find bare lang tags: Difference between revisions

<lang C>printf("Hello world!\n");</lang> =={{header|C}}==

<langsyntaxhighlight lang=Erlang>

<langsyntaxhighlight lang=go>package main

}</langsyntaxhighlight>

<langsyntaxhighlight lang=Haskell>import System.Environment

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

<lang>Pseudocode</lang> =={{header|Haskell}}==

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

end</langsyntaxhighlight>

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

</langsyntaxhighlight>{{out}}

Total bare <lang> for language Perl 6Raku: 1

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

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

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

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

There are 3 bare lang tags in Perl 6Raku

=={{header|Mathematica}}/{{header|Wolfram Language}}==

<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]])

13 in Perl 6Raku ([[Concurrent computing]], [[Constrained genericity]], [[Create a two-dimensional array at runtime]], [[Dutch national flag problem]], [[Empty program]], [[Hofstadter-Conway $10,000 sequence]], [[Morse code]], [[Numerical integration]], [[Queue/Usage]], [[Rosetta Code/Find bare lang tags]], [[Write language name in 3D ASCII]])

=={{header|PerlNim}}==

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

--

<langsyntaxhighlight lang=racket>

<langsyntaxhighlight lang=racket>

The only tricky thing here is the use of the <tt>ms</tt> form of match, short for <tt>m:sigspace</tt>. This causes whitespace in the regex to be considered "significant", that is, it matches optional whitespace at those positions, as if you'd put <tt>\s*</tt> there. Of course, the regexes themselves are in Raku syntax, which is quite different from Perl  5 regex syntax (and arguably much cleaner). Regex syntax is perhaps the area in which Raku diverges most from Perl  5.

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

say .value, ' in ', .key for %blanks.sort;</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=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>

<langsyntaxhighlight lang=tcl>package require Tcl 8.5

printResults</langsyntaxhighlight>

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

langRE=RegExp(0'!\s*==\s*{{\s*header\s*\|(.+)}}!), // == {{ header | zkl }}

}</langsyntaxhighlight>

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