Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
(→{{header|Befunge}}: Added a separate Befunge-93 implementation as the existing solution required an extended page size only supported in the less-common Befunge-98 dialect.) |
|||
| Line 937: | Line 937: | ||
</pre> |
</pre> |
||
=={{header|FORTH}}== |
|||
<lang FORTH> |
|||
\ Rossetta Code Write language name in 3D ASCII |
|||
\ Simple Method |
|||
: l1 ." /\\\\\\\\\\\\\ /\\\\ /\\\\\\\ /\\\\\\\\\\\\\ /\\\ /\\\" CR ; |
|||
: l2 ." \/\\\///////// /\\\//\\\ /\\\/////\\\ \//////\\\//// \/\\\ \/\\\" CR ; |
|||
: l3 ." \/\\\ /\\\/ \///\\\ \/\\\ \/\\\ \/\\\ \/\\\ \/\\\" CR ; |
|||
: l4 ." \/\\\\\\\\\ /\\\ \//\\\ \/\\\\\\\\\/ \/\\\ \/\\\\\\\\\\\\\" CR ; |
|||
: l4 ." \/\\\///// \/\\\ \/\\\ \/\\\////\\\ \/\\\ \/\\\///////\\\" CR ; |
|||
: l5 ." \/\\\ \//\\\ /\\\ \/\\\ \//\\\ \/\\\ \/\\\ \/\\\" CR ; |
|||
: l6 ." \/\\\ \///\\\ /\\\ \/\\\ \//\\\ \/\\\ \/\\\ \/\\\" CR ; |
|||
: l7 ." \/\\\ \///\\\\/ \/\\\ \//\\\ \/\\\ \/\\\ \/\\\" CR ; |
|||
: l8 ." \/// \//// \/// \/// \/// \/// \///" CR ; |
|||
: "FORTH" cr L1 L2 L3 L4 L5 L6 L7 L8 ; |
|||
\ test at the console |
|||
page "forth" |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
/\\\\\\\\\\\\\ /\\\\ /\\\\\\\ /\\\\\\\\\\\\\ /\\\ /\\\ |
|||
\/\\\///////// /\\\//\\\ /\\\/////\\\ \//////\\\//// \/\\\ \/\\\ |
|||
\/\\\ /\\\/ \///\\\ \/\\\ \/\\\ \/\\\ \/\\\ \/\\\ |
|||
\/\\\///// \/\\\ \/\\\ \/\\\////\\\ \/\\\ \/\\\///////\\\ |
|||
\/\\\ \//\\\ /\\\ \/\\\ \//\\\ \/\\\ \/\\\ \/\\\ |
|||
\/\\\ \///\\\ /\\\ \/\\\ \//\\\ \/\\\ \/\\\ \/\\\ |
|||
\/\\\ \///\\\\/ \/\\\ \//\\\ \/\\\ \/\\\ \/\\\ |
|||
\/// \//// \/// \/// \/// \/// \/// |
|||
ok |
|||
</pre> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||