Rosetta Code/Fix code tags: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 482:
end
</lang>
=={{header|Maple}}==
<lang Maple>#Used <#/lang> to desensitize wiki
Line 618 ⟶ 619:
print $text;</lang>
=={{header|Perl 6}}==▼
<lang perl6>my @langs = <▼
abap actionscript actionscript3 ada apache applescript apt_sources▼
asm asp autoit avisynth bash basic4gl bf blitzbasic bnf boo c caddcl▼
cadlisp cfdg cfm cil c_mac cobol cpp cpp-qt csharp css d delphi▼
diff _div dos dot eiffel email fortran freebasic genero gettext▼
glsl gml gnuplot groovy haskell hq9plus html4strict idl ini inno▼
intercal io java java5 javascript kixtart klonec klonecpp latex lisp▼
lolcode lotusformulas lotusscript lscript lua m68k make matlab mirc▼
modula3 mpasm mxml mysql nsis objc ocaml ocaml-brief oobas oracle11▼
oracle8 pascal per perl php php-brief pic16 pixelbender plsql povray▼
powershell progress prolog providex python qbasic rails reg robots▼
ruby sas scala scheme scilab sdlbasic smalltalk smarty sql tcl teraterm▼
text thinbasic tsql typoscript vb vbnet verilog vhdl vim visualfoxpro▼
visualprolog whitespace winbatch xml xorg_conf xpp z80▼
>;▼
$_ = slurp;▼
for @langs -> $l {▼
s:g:i [ '<' 'lang '? $l '>' ] = "<lang $l>";▼
s:g [ '</' $l '>' ] = '</' ~ 'lang>';▼
}▼
s:g [ '<code '(.+?) '>' (.*?) '</code>' ] = "<lang $0>{$1}</"~"lang>";▼
.say;</lang>▼
<lang perl6>use v6;▼
constant @langs = < abap actionscript actionscript3 ada … >;▼
slurp().subst(▼
rx:r{▼
| '<' <( $<need-add-space>=<?> )> @langs '>'▼
| '</' <( @langs )> '>'▼
| '<' '/'? <( code )> [<.ws> @langs]? '>'▼
},▼
'lang' ~ " " x *<need-add-space>.so,▼
:g,▼
).print</lang>▼
=={{header|Phix}}==
Line 704 ⟶ 665:
some r code </lang>sed do eiusmod tempor incididunt
</pre>
=={{header|PicoLisp}}==
Line 847 ⟶ 807:
(loop)))
</lang>
(formerly Perl 6)
▲<lang perl6>my @langs = <
▲ abap actionscript actionscript3 ada apache applescript apt_sources
▲ asm asp autoit avisynth bash basic4gl bf blitzbasic bnf boo c caddcl
▲ cadlisp cfdg cfm cil c_mac cobol cpp cpp-qt csharp css d delphi
▲ diff _div dos dot eiffel email fortran freebasic genero gettext
▲ glsl gml gnuplot groovy haskell hq9plus html4strict idl ini inno
▲ intercal io java java5 javascript kixtart klonec klonecpp latex lisp
▲ lolcode lotusformulas lotusscript lscript lua m68k make matlab mirc
▲ modula3 mpasm mxml mysql nsis objc ocaml ocaml-brief oobas oracle11
▲ oracle8 pascal per perl php php-brief pic16 pixelbender plsql povray
▲ powershell progress prolog providex python qbasic rails reg robots
▲ ruby sas scala scheme scilab sdlbasic smalltalk smarty sql tcl teraterm
▲ text thinbasic tsql typoscript vb vbnet verilog vhdl vim visualfoxpro
▲ visualprolog whitespace winbatch xml xorg_conf xpp z80
▲>;
▲$_ = slurp;
▲for @langs -> $l {
▲ s:g:i [ '<' 'lang '? $l '>' ] = "<lang $l>";
▲ s:g [ '</' $l '>' ] = '</' ~ 'lang>';
▲}
▲s:g [ '<code '(.+?) '>' (.*?) '</code>' ] = "<lang $0>{$1}</"~"lang>";
▲.say;</lang>
▲<lang perl6>use v6;
▲constant @langs = < abap actionscript actionscript3 ada … >;
▲slurp().subst(
▲ rx:r{
▲ | '<' <( $<need-add-space>=<?> )> @langs '>'
▲ | '</' <( @langs )> '>'
▲ | '<' '/'? <( code )> [<.ws> @langs]? '>'
▲ },
▲ 'lang' ~ " " x *<need-add-space>.so,
▲ :g,
▲).print</lang>
=={{header|REXX}}==
Line 925 ⟶ 927:
}</lang>
=={{header|Sidef}}==
<lang ruby>var langs = %w(ada cpp-qt pascal lscript z80 visualprolog
|