Porra, isso é um monte de cenouras.

A inspiração

A tarefa

Você deve criar um programa que, no maior número possível de idiomas, substitua todas as instâncias ^por um link formatado de remarcação (o que significa que, se eu fosse postá-lo em uma resposta, ele o leria automaticamente como uma imagem e, em vez disso, colocaria a imagem. das palavras) desta cenoura virada para cima.

Como usar a referida formatação:

Primeiro, em qualquer lugar do arquivo, insira o link assim (isto é o que eu fiz para esta pergunta):

[1]: http://i.stack.imgur.com/mecHl.png

E então, onde você quiser:

[! [] [1]] [1]

Regras

• Aplicam-se brechas padrão.
• A entrada será através de STDIN ou equivalente.
• A saída será através de STDOUT ou equivalente.
• Seu código deve ser um programa totalmente operacional em todos os idiomas que você usa.
• O URL que você usa para sua cenoura não precisa ser o único nesta resposta. Este foi apenas um exemplo. Você pode usar qualquer URL, desde que o Markdown da SE mostre essa cenoura específica.
• Este é um desafio poliglota , por isso ganha a resposta com a maior quantidade de idiomas de cenouras !
  • No caso de empate, vence o menor tamanho de código das entradas com o maior número de idiomas.

EDITAR:

• Além disso, NÃO use derivados triviais de idiomas! Isso significa usar uma linguagem de substituição (Brainfuck vs. ShadyAsFuck) e versões de idiomas diferentes (Python 2 vs. Python 3).

Existem muitos esolangs triviais para ajustar ... (incluindo as variantes do 9001 BF)

Não seja esse cara.

Nota: Sim, este programa será um pouco trivial em idiomas com suporte a regex. No entanto, a competição é ver quantos idiomas os concorrentes podem usar.

Pitão, Befunge 98, Lisp, e Javascript - 829 827 2 (bandeira -x em python) = 831 829 bytes

"^\
";/*";
""""(defun q (string part replacement &key (test #'char=))(with-output-to-string (out) (loop with part-length = (length part) for old-pos = 0 then (+ pos part-length) for pos = (search part string :start2 old-pos :test test) do (write-string string out :start old-pos :end (or pos (length string))) when pos do (write-string replacement out) while pos)))(princ "[1]:http://tinyurl.com/qczsjtl
")(ignore-errors (loop (princ (q (read-line) "^" "[![][1]][1]"))))""";import sys;i=sys.stdin.read();print '[1]:http://tinyurl.com/qczsjtl\n'+i.replace('^','[![][1]][1]');"""" """
1;'''
;#<v"[1]:http://tinyurl.com/qczsjtl"$$$
;X v,<
;X >:|XXXXX>v
;vXXX>a,#
;>#@~>:10g-|>,#
;^ XXXXXXXX>$"]1[]]1[][![">:# ,# _#
;X */alert("[1]:http://tinyurl.com/qczsjtl\n"+prompt().split("^").join("[![][1]][1]"));/*
;>^"'''#*/

Requer o -xsinalizador de linha de comando quando executado com python. os Xs podem ser substituídos por qualquer caractere. Os sinais numéricos de final de linha (e o sinal numérico no início da primeira linha que começa com ponto-e-vírgula) estão presentes para evitar antes de tentar executar a instrução inválida ;(que inicia um comentário em lisp). Não há espaço à direita em nenhuma das linhas.

Salva dois bytes substituindo 55+por apara imprimir uma nova linha.

Minkolang 0,10 , Befunge-93 , > <> ; 3 idiomas 2D, 321 bytes

v[1]: http://i.stack.imgur.com/mecHl.png
v[![][1]][1] 
>\$$>~:1+!#v_:"^"-#v_1>:34*`#v_v
//  ^             ,<0        <    >:0g,1+v
v#   ,,:*52<          ^+1  ,g1:<@_^#`*85:<1
>!v#(od"^"=,34*&34*[i1+1qO]!O$I)lO58*[i1+0qO].
  >i:0(?v:"^"-?v1>:34*)?vv
  ^           o<0       < > :0go1+v
  oo:*52<        ^+1og1: <^;?)*85:<1

Intérpretes: Minkolang , Befunge-93 , > <> .

Entrarei em detalhes sobre cada componente, se alguém quiser, mas o importante é que todos leiam a primeira e a segunda linhas da caixa de códigos e produzam os caracteres nos momentos apropriados. Além disso, eu decido entre Befunge e Minkolang /> <> pelo uso de \, que troca os dois principais valores da pilha no primeiro e é um espelho nos outros dois. Para separar Minkolang e> <>, eu uso !v#. !é um trampolim incondicional nos dois idiomas, mas #é um espelho omnidirecional em> <> e não-op em Minkolang. A partir de então, cada idioma executa o código em seu próprio componente.

Cenoura , 60 58 bytes

#^A^S"[![][1]][1]"^[1]: http://i.stack.imgur.com/mecHl.png

Sei que é apenas uma língua no momento, mas pensei que não podemos realmente ter um desafio sobre cenouras que não é respondido na Cenoura.

Economizou 2 bytes graças a @KritixiLithos.

Explicação:

#                                          // Set the stack to the input
^                                          // Change to operations mode
A^                                         // Convert to array mode by splitting on ^
S"[![][1]][1]"                             // Convert to string mode by joining on
                                           // the literal string supplied
^[1]: http://i.stack.imgur.com/mecHl.png   // Switch back to stack mode and
                                           // append the string literal