Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
(Replaced list of "replace" with "multireplace". Changed indentation and used "dedent".) |
m (→{{header|Phix}}: added syntax colouring the hard way) |
||
Line 2,606: | Line 2,606: | ||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
<lang Phix> |
<!--<lang Phix>(phixonline)--> |
||
<span style="color: #008080;">constant</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""" |
|||
------*** * |
|||
-----* |
------*** * |
||
----* * |
-----* * * |
||
---*** * |
----* * * * |
||
-- |
---*** * |
||
-* * |
--* *** * * * |
||
* * * * |
-* * * * * |
||
* * * * * * |
|||
""" |
|||
"""</span> |
|||
puts(1,substitute_all(s,"* ",{"_/"," "}))</lang> |
|||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"* "</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"_/"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">}))</span> |
|||
<!--</lang>--> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Line 2,628: | Line 2,630: | ||
===obfuscated=== |
===obfuscated=== |
||
For those of you who like this sort of thing, same output |
For those of you who like this sort of thing, same output |
||
<!--<lang Phix>(phixonline)--> |
|||
<lang Phix>constant q = {0(30)10C,0(31)176,0(32)2A4,0(33)6N3,0(34)7GP,0(35)DWF,0(36)QC4} |
|||
<span style="color: #008080;">constant</span> <span style="color: #000000;">q</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">0(30)10C</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(31)176</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(32)2A4</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(33)6N3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(34)7GP</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(35)DWF</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(36)QC4</span><span style="color: #0000FF;">}</span> |
|||
puts(1,substitute_all(sprintf(join(repeat("%16b",7),"\n"),q)," 10",{"-","_/"," "})&"\n")</lang> |
|||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%16b"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">7</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">),</span><span style="color: #000000;">q</span><span style="color: #0000FF;">),</span><span style="color: #008000;">" 10"</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"-"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"_/"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">})&</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span> |
|||
<!--</lang>--> |
|||
===another version=== |
===another version=== |
||
Inspired by Ruby |
Inspired by Ruby |
||
<lang Phix> |
<!--<lang Phix>(phixonline)--> |
||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""" |
|||
__ ________ |
|||
__ ________ |
|||
/_/\ / ______ \ |
|||
\ \ \/ / |
\ \ \/ /\____/ /\ __ |
||
\ \ \/ |
\ \ \/ / / / //_/\ |
||
\ \ \/___/ / / \_\/_ __ |
|||
/\ \______/ / /_/\/ /\ |
|||
/ /\ ____ \ \ \ \ \/ / |
|||
/ / /\ \ \ \ \ \ \_\ / |
|||
/ |
/ / / \ \ \ \ \ \ / / \ |
||
/_/ / \ \ \ \ \ \ /_/ /\ \ |
|||
\_\/ \_\/ \_\/ \_\/\_\/ |
|||
""") |
|||
"""</span><span style="color: #0000FF;">)</span> |
|||
-- or if you prefer something a little more cryptic (same output): |
<span style="color: #000080;font-style:italic;">-- or if you prefer something a little more cryptic (same output):</span> |
||
puts(1," __ ________\n /_/\\ / ______ \\\n \\ \\ \\/ /\\____/ /\\ __\n "& |
|||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" __ ________\n /_/\\ / ______ \\\n \\ \\ \\/ /\\____/ /\\ __\n "</span><span style="color: #0000FF;">&</span> |
|||
"\\ \\ \\/ / / / //_/\\\n \\ \\ \\/___/ / / \\_\\/_ __\n /\\ \\__"& |
|||
" |
<span style="color: #008000;">"\\ \\ \\/ / / / //_/\\\n \\ \\ \\/___/ / / \\_\\/_ __\n /\\ \\__"</span><span style="color: #0000FF;">&</span> |
||
<span style="color: #008000;">"____/ / /_/\\/ /\\\n / /\\ ____ \\ \\ \\ \\ \\/ /\n / / /\\ \\ "</span><span style="color: #0000FF;">&</span> |
|||
" \\ \\ \\ \\ |
<span style="color: #008000;">"\\ \\ \\ \\ \\_\\ /\n / / / \\ \\ \\ \\ \\ \\ / / \\\n/_/ / \\"</span><span style="color: #0000FF;">&</span> |
||
<span style="color: #008000;">" \\ \\ \\ \\ \\ /_/ /\\ \\\n\\_\\/ \\_\\/ \\_\\/ \\_\\/\\_\\/\n"</span><span style="color: #0000FF;">)</span> |
|||
<!--</lang>--> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |