54 мови, 1331 байт
> <> ,
Голі> <> ,
Foo ,
Befunge-93 ,
Befunge-98 ,
Brainfuck ,
Мозок-Флак ,
Python 2 ,
Python 3 ,
Hexagony ,
Perl ,
Рубін ,
Джулія ,
Кардинал ,
Brainbash ,
Turtlèd ,
Deadfish ~ ,
Прогалини ,
Braille ,
Rail ,
Fission ,
ETA ,
Trigger ,
Модифікуючий Brainfuck ,
Numberwang ,
Власне ,
Emoji ,
Symbolic Brainfuck ,
TinCan ,
Alphuck ,
Shove ,
Cood ,
Wise ,
Width ,
Whispers ,
Thue ,
Surface ,
Stones ,
evil ,
Set ,
Prelude ,
Gaot ++ ,
Cubix ,
Cubically ,
PATH ,
Commercial ,
Брайан і Чак,
Мавпи ,
Nhohnhehr ,
Beam,
AsciiDots ,
Alumin ,
Alice ,
Whirl
Це стає дуже довгим, тому за пропозицією @ MDXF я переміщую підпрограми та коментарі до суті . Програма тут лише фінальна програма. Дякуємо MDXF знову за тест-драйвер TIO.
##\$"404"#N#S# , ,,#$#?@\404!?@GJlICJlGCC*G^+0%=%=+0%x&fqpqqqiipsoddddoiipsohphhhhyhhhh? ?nnn4$4#!000110000011110000100000100000110000011001100000111100001110011000111000110000
#?\++++:----:++++:H@((((4O0O4O@((((()()()){}){x}x){}x()){}){}()){}){})<[-]>[-]-[<+>-----]<+x%"404"?.⌂----.++++.>11
#i(N/"404"ooo@ENTHOEONHSSEONTHOEONSETssipceaiiiiiscejiiiijeeeejapmzaeeaeueewzaeeeaeewzaeeaeueewqs??|?)999|997+|++++!999777+++++!999997+++++!
print(404)
__DATA__=1
# \"404"*CC'[-][ .-$_"404"&]
"""pp
I want 404 of this
How much is it
# -52, Z, -1 #
# -48, Y, -1 #
# -52, X, -1 #
[-][
x::=~404
::=
x
]<<<
> 404
>> Output 1
red up two blue up red up one blue up red up two blue up
baaaaa bleeeeeeeeet bleeeeeeeeet baaaaa bleeeeeeeeet
a now 404 dollar off!
a has been selling out worldwide!
2 LEFT
2 LEFT
2 UP
2 LEFT
2 TEACH
1 LEFT
1 RIGHT
1 BOND
1 BOND
1 TEACH
2 YELL
1 FIGHT
2 YELL
1 TEACH
2 YELL
set ! 52
set ! 48
set ! 52
+------+
|$0011\|
|/000\0|
|0/0@11|
|00 10|
|0\10/0|
|\1100/|
+------+
$'main'
\-444o000o444omm^
[-][$++++++++++++++++++++++++++++++++++++++++++++++++++++.----.++++.#
<<<<<<```>>>>.>.>.
]
ss"""
#7777777777777777777777777777724091557093543643💬404💬➡77▲▲▲²²▲²²¡▼▼▼▼¡▲▲▲▲¡⠎⡆⡎⡆⢐⠣⠃s&&&&~-<<:<<:<<<:<:>>>>>>>>:^||||G<>
Спробуйте в Інтернеті!
Вир описується як Turning Tarpit [sic], який використовує лише дві інструкції, 1 і 0. 1 обертає поточне колесо інструкцій (або математичне колесо, або колесо управління), 0 змінює обертання колеса і два 0s виконує інструкцію і перемикає колеса. Відповідні інструкції є на першому рядку:
000110000011110000100000100000110000011001100000111100001110011000111000110000
000110000 Switch to math wheel and execute math.not (math.val = 1)
011110000 Execute math.store, (memval = math.val = 1)
10000 Execute math.add, (math.val = math.val+memval = 1+1 = 2)
010000 Execute math.store (memval = math.val = 2)
0110000 Execute math.multiply, (math.val = math.val*memval = 2*2 = 4)
01100 Execute math.store (memval=math.val) and switch to the ops ring
110000 Execute ops.one (ops.val = 1)
011110000 Executes ops.intio, printing memval (4)
11100 Add one to memory pointer (memval=0)
1100 Execute maths.nop to switch back to ops ring
011100 Execute ops.intio, printing memval (0)
01100 Execute maths.store, (memval=maths.val=4)
00 Execute maths.intio, printing memval (4)
Ведучі 01 скасовують один одного, а кінцеві 01 викликають виняток з плаваючою точкою.
Редагувати: виправлено купу зламаних речей
(Команди, про які слід бути обережними в майбутньому: UDLR%"[.]o473psjw
:)
Якщо будь-які програми працюють для майбутніх мов або не працюють для поточної чи попередньої мов, будь ласка, прокоментуйте їх.