Anonymous user
Write language name in 3D ASCII: Difference between revisions
→{{header|F_Sharp|F#}}
(→{{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:
</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}}==
| |||