Zróbmy wyszukiwanie słów!

35

W ramach tego wyzwania wspólnie stworzymy wyszukiwanie słów zawierające wiele programów w różnych językach.

Zacząłem od siatki 60 na 25 pustych pól ( ·), z których niektóre zostały zastąpione znakami programu Ruby.

Aby odpowiedzieć, wybierz język, który nie był jeszcze używany. Używając wybranego języka, napisz program, który odczytuje znak, token, linię lub wszystkie dane wejściowe z konsoli i drukuje je . Następnie włóż swój program do wyszukiwania słów.

Załóżmy na przykład, że wybrałeś Python 3 i napisałeś program print(input()). Teraz musisz wstawić ten program do siatki.

Jeśli siatka przed odpowiedzią wygląda następująco:

···a·24··········
··z····t·········

Następnie możesz po prostu umieścić swój program w drugiej linii, pokrywając się z istniejącym t:

···a·24··········
··zprint(input())

Pamiętaj, że możesz umieścić swój program w dowolnym kierunku: do przodu, do tyłu, w górę, w dół lub po przekątnej, o ile jest on w linii prostej.

Ale co, jeśli istniejąca siatka wygląda następująco:

···a·24··········
··z····q·········

Nie ma sposobu, aby dopasować się print(input())tutaj bez zmiany istniejących postaci, co jest zabronione. Zamiast tego możesz zmienić program:

print(
 input())

Ten dwuliniowy program jest idealnie dopasowany:

···a·24·print(···
··z····q input())

Tutaj zamieniasz spację ( ·) spacją ( ). Jednak spacja jest jak każda inna postać i nie może zostać zastąpiona w przyszłych programach.

Podobnie jak program jednoliniowy, program wieloliniowy można umieścić w dowolnym kierunku. Na przykład na większej siatce można wykonać następujące czynności, obracając program o 135 ° zgodnie z ruchem wskazówek zegara.

··········
········ ·
·······i·p
······n·r·
·····p·i··
····u·n···
···t·t····
··(·(·····
·)········
)·········

Punktacja

Twój wynik za każdą odpowiedź jest trzydzieści podzielony przez liczbę dodanych znaków. Nie licz znaków, które już istniały w siatce, nawet jeśli sam ich używasz.

Twój łączny wynik to suma wyników dla wszystkich odpowiedzi pomnożona przez liczbę odpowiedzi. Najwyższy wynik wygrywa.

Zasady

  • Każda odpowiedź musi być napisana w innym języku. Języki, które różnią się tylko numerem wersji (np. Python 2 i Python 3) są uważane za takie same.
  • Każda odpowiedź musi opierać się na najnowszej prawidłowej odpowiedzi. Oznacza to, że weź siatkę najnowszej takiej odpowiedzi i włóż do niej swój program.
  • Aby wstawić swój program, zastąp co najmniej jeden z odstępów ( ·) wybranymi znakami. Możesz użyć istniejących postaci z siatki w swojej odpowiedzi, ale nie możesz zmienić ani przenieść żadnego z nich.
  • Nie możesz wstawiać łącznie więcej niż 500 znaków we wszystkich swoich odpowiedziach.
  • Wszystkie wstawione znaki muszą być częścią Twojego programu.
  • Twój program może składać się tylko z ASCII do druku i znaków nowej linii, ale nie może być dwóch lub więcej kolejnych linii po kolei.
  • Nowe linie nie liczą się do twojego wyniku.
  • Wymagany jest pełny program, a nie tylko funkcja lub fragment kodu.
  • Ten sam użytkownik nie może napisać dwóch kolejnych odpowiedzi.
  • Jeśli czyjaś odpowiedź narusza regułę, zostaw komentarz. Jeśli błąd nie zostanie naprawiony w ciągu 30 minut, należy go usunąć.

Fragment kodu używanego języka

To jest fragment kodu, stworzony przez ETHproductions, FryAmTheEggman i Mauris, który śledzi wyniki użytkowników i używane języki. Został on pierwotnie skopiowany z niesamowitego szablonu Martina Büttnera .

Oryginalna tabela wyników:

Nowa (eksperymentalna) wersja wykorzystująca zmodyfikowaną formułę:

Aby upewnić się, że Twój fragment został rozpoznany przez fragment kodu, użyj następującego szablonu nagłówka:

# Language, X characters added
Ypnypn
źródło
2
Ech, po prostu polegam na tym, że społeczność jest wystarczająco fajna, aby nie robić czegoś tak nudnego :)
Lynn
5
Mam ustawiony podstawowy fragment „tabeli liderów”, skopiowany z niesamowitego szablonu Martina, który śledzi używane języki. Czy mogę edytować to w poście?
ETHprodukcje
1
W porządku, dodałem fragment kodu. Usunąłem tylko niepotrzebną część HTML, więc skróć CSS lub JS.
ETHprodukcje
2
Sugerowałbym, że następnym razem, gdy ktoś zrobi coś takiego, ograniczy to do języków na tyle znaczących, aby mieć wpis na Wikipedii lub coś w tym rodzaju. To naprawdę nie wygląda na prawdziwe wyszukiwanie słów z dziesiątkami jedno- i dwu-literowych znaków z ezoterycznych języków, o których nikt nigdy nie słyszał.
ThaddeusB
3
Ktoś powinien rozszerzyć fragment kodu, aby tabela wyników zawierała wyniki według autora.
Lynn

Odpowiedzi:

12

Java, dodano 124 znaki

Póki jest jeszcze miejsce!

class C{public static void main(String[]a) throws Throwable{
System.out.println(new java.util.Scanner(System.in).next());
}}

Siatka jest teraz

····························································
···········i········a·······································
··········?pio;·····l·······································
··········,u········e·······································
··········.t········r·······································
··········@s········t·······································
··········· ··printf(·······································
···········g··    input('','s'))····························
···········e·····n··r·······································
········write(read-host)····································
·········E·s········m·······································
········C·E·········p·······································
·······H·T··········t·····················r·················
······O· ···········(·······································
····· ·/············)·······································
····%·P·············)·······································
···A· ······················································
··%·A·······················································
···=························································
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc    
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS    
··························································}}
····························································
····························································
····························································

Dokonałem edycji ninja i odwróciłem kod w siatce, ponieważ OP twierdzi, że kod może być wstecz. Następnie zmodernizowałem go do następnej odpowiedzi

daniero
źródło
11

Świnka, dodano 23 znaki

Jeszcze raz przepraszamy za brak jednego wymogu w pytaniu.

oto moje nowe zgłoszenie:

s t=" " r t#50:20 w !,t,!

Ustawia zmienną t na spację, a następnie odczytuje co najwyżej 50 znaków ze standardowego wejścia z 20-sekundowym limitem czasu zapisuje nową linię, zmienną, a następnie kolejną nową linię. (Wiele terminali świnki staje się trochę niechlujnych, jeśli tego nie zrobisz ...)

Siatka jest teraz:

····························································
···········i········a·······································
··········?pio;·····l·······································
··········,u········e·······c·······························
··········.t········r·······a·······························
··········@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·······························
········write(read-host)····a·······························
·········E·s········m·······n·······························
········C·E·········p·······(·······························
·······H·T··········t·······,·············r·················
······O· ···········(·······'·······························
····· ·/············)·······'·······························
····%·P·············)·······)·······························
···A· ······················)·······························
··%·A·······················································
···=························································
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc    
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS    
··························································}}
····························································
····························································
····························································

to cholerne przesłanie R sprawiło, że napisanie tego było trochę trudniejsze ... :-)

zmerch
źródło
10

Beatnik , dodano 29 znaków

Get a chr!
Outputs it
and 'BZam.

Wyjaśnienie nadchodzi :)

Uzyskaj # ignorowane z wartościami scrabble poniżej 5
chr! # score 8, wprowadź znak i wciśnij jego wartość
Outputs # score 9, wstaw liczbę i wyślij jej znak
i # zignoruj ​​z wynikiem poniżej 5
'BZam. # score 17 kończy program

Nowa siatka

·········v---H\·············································
·········>qir@uH····a·······································
Get a chr!?pio;·····l·······································
Outputs it,u········e·······c·······························
and 'BZam..t········r·······a·······························
··········@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·······························
········write(read-host)····a·······························
·········E·s········m·······n·······························
········C·E·········p·······(·······························
·······H·T··········t·······,·············r·················
······O· ···········(·······'·······························
····· ·/············)·······'·······························
····%·P·············)·······)·········1·····················
···A· ······················)········n······················
··%·A·······························-·······················
···=······························· ···$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc    
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS    
································e···a·····················}}
·······························h···=························
··································<·························
·································>··························
MickyT
źródło
Myślę, że B'Zam powinien być „BZam”, ponieważ apostrof pośrodku technicznie składa się z dwóch słów. „BZam miałby 17 punktów i zakończyłby program. Można również argumentować, że jest to nieważne, ponieważ tłumacz może wyśmiewać cię z niskiej oceny „dostać”, „to” i „i”. Myślę, że to w porządku.
Mike Bufardeci,
@MikeBufardeci Myślę, że możesz mieć rację na BZam.
Zmieni się,
9

C, dodano 27 znaków

Ktoś wspomniał o C i widziałem, że wciąż jest to możliwe.

main( ){printf("%c",  (getchar()));}

Nowa siatka:

·········v---H\·············································
······,··>qir@uH···IaP.·····································
Get a chr!?pio;·····l·······································
Outputs it,u········e·······c··········print(readline())····
and 'BZam..t········r·······a·······························
········~,@s······s t=" " r t#50:20 w !,t,!·················
······main( ){printf("%c",  (getchar()));}··················
···········g·>    input('','s'))····························
···········e·····n··r·······c·········g·····················
·······(write(read-host)····a)········r······ ··············
·······))E·s········m·······n)········e·····················
········C·E·········p·······((·······{print;exit}····K······
·······H·T··········t·······,t········ ···r·················
······O· ···········(·······'u········-·····················
····· ·/············)·······'p········m·····················
····%·P·············)·······)n········1·····················
···A· ······················)io······n ·····················
··%·A························(······-·.·····················
···=·························t\···· ···$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························
DLosc
źródło
8

??? , Dodano 1 znak

?!

Siatka jest teraz:

·········v---H\·············································
·········>qir@uH····a·······································
·········!?pio;·····l·······································
··········,u········e·······c·······························
··········.t········r·······a·······························
··········@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·······························
········write(read-host)····a·······························
·········E·s········m·······n·······························
········C·E·········p·······(·······························
·······H·T··········t·······,·············r·················
······O· ···········(·······'·······························
····· ·/············)·······'·······························
····%·P·············)·······)·········1·····················
···A· ······················)········n······················
··%·A·······························-·······················
···=······························· ···$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc    
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS    
································e···a·····················}}
·······························h···=························
··································<·························
·································>··························
Mike Bufardeci
źródło
6

Urna , dodano 3 znaki

(:::)

Nowa siatka:

·········v---H\··v+C+<D_··············S·P··············;····
G`····,··>qir@uH·  IaP.C·············A·USE: io·········>····
Get a chr!?pio;····Ol···············Y·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))··<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:·E····
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;····
O·········)g·>    input('','s'))·················h_··)·P····
a··········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)···KVGH·e·print n$!·m····;····
········C·E·········p·······((···TIIA{print;exit}·pYEK·*····
$'main'H·T··········t·······,t···HSMI· ···r·······(·········
 \/\··O· ···········(·······'u···XIM ·-···········$·········
  \/· ·/(println····)·······'p···BBE1·m···········a·········
   \%·PQ  (read-line))······)n···YLH.·1···········r·········
   A\     /-io-\············)io··EE 4n ·····`·····g·········
  % A\-e-<     |·············(···· V-·.··di _r(a)·v·········
 $ =      \----#·············t\···V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<····················
···};s<<tuoc::dts;s>>nic::dts····>i:1+?/;···················
Timwi
źródło
5

Ruby, dodano 9 znaków

puts gets

Siatka jest teraz:

····························································
····························································
···········p················································
···········u················································
···········t················································
···········s················································
··········· ················································
···········g················································
···········e················································
···········t················································
···········s················································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
Ypnypn
źródło
5

LISP, dodano 3 znaki

(write(read
))

Nowa siatka:

·········v---H\·············································
·········>qir@uH····a·······································
Get a chr!?pio;·····l·······································
Outputs it,u········e·······c·······························
and 'BZam..t········r·······a·······························
··········@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·······························
·······(write(read-host)····a)······························
·······))E·s········m·······n)······························
········C·E·········p·······((······························
·······H·T··········t·······,t············r·················
······O· ···········(·······'u······························
····· ·/············)·······'p······························
····%·P·············)·······)n········1·····················
···A· ······················)i·······n······················
··%·A························(······-·······················
···=·························t····· ···$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a·····················}}
·····························p·h···=························
··································<·························
·································>··························
Tadeusz B.
źródło
5

Perl, dodano 6 znaków

die
$  a=<>

Siatka jest teraz:

·········v---H\·············································
·········>qir@uH····a·······································
··········?pio;·····l·······································
··········,u········e·······c·······························
··········.t········r·······a·······························
··········@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·······························
········write(read-host)····a·······························
·········E·s········m·······n·······························
········C·E·········p·······(·······························
·······H·T··········t·······,·············r·················
······O· ···········(·······'·······························
····· ·/············)·······'·······························
····%·P·············)·······)·······························
···A· ······················)·······························
··%·A·······················································
···=···································$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc    
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS    
····································a·····················}}
···································=························
··································<·························
·································>··························
Tadeusz B.
źródło
Twój program diagonalny jest nieprawidłowy. Zobacz przykład obrotu o 135 stopni. Potrzebna jest pusta linia ukośna.
mbomb007
@ mbomb007 Ah, myślę, że powinien zostać naprawiony.
ThaddeusB
Usunąłeś
@MickyT Dzięki za edycję. :)
ThaddeusB
5

Quipu , dodano 3 znaki

Program dla kotów w Quipu składa się z czterech znaków:

\/
/\

Obróciłem o 90 ° i ponownie użyłem jednego z ukośników z programu Rail .

Nowa siatka:

·········v---H\··v+C+<D_··············S·P··············;····
G`····,··>qir@uH·  IaP.C·············A·USE: io·········>····
Get a chr!?pio;····Ol···············Y·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))··<v;···;····
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?···E····
G·····main( ){printf("%c",  (getchar()));}·······pr>···;····
O··········g·>    input('','s'))·················h_····P····
a··········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)···KVGH·e·print n$··m····;····
········C·E·········p·······((···TIIA{print;exit}·pYEK·*····
$'main'H·T··········t·······,t···HSMI· ···r·······(·········
 \/\··O· ···········(·······'u···XIM ·-···········$·········
  \/· ·/(println····)·······'p···BBE1·m···········a·········
   \%·P·  (read-line))······)n···YLH.·1···········r·········
   A\     /-io-\············)io··EE 4n ·····`·····g·········
  % A\-e-<     |·············(···· V-·.··di _r(a)·v·········
 $ =      \----#·············t\···V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni·····<·························
···};s<<tuoc::dts;s>>nic::dts····>··························
Timwi
źródło
5

Cudowny , dodano 7 znaków

00
\\/\]]

(Jeśli dobrze zrozumiałem, jak działa Marbelous ...)

·········v---H\OIv+C+<D_··············S·P··············;····
G`····,··>qir@uH·  IaP.C········LAMBDA·USE: io·········>····
Get a chr!?pio;····Ol···········ZEROY·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))·o<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:·E····
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;····
O·········)g·>    input('','s'))·················h_··)·P····
a··········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)···KVGH·e·print n$!·m····;····
········C·E·········p·······((···TIIA{print;exit}·pYEK·*····
$'main'H·TUPTUO·····t·00····,t···HSMI· ···r·······(·········
 \/\··O· ·TUPNI···S (I\\/\]]'u···XIM ·-···········$·········
  \/· ·/(println··FO) /·····'p···BBE1·m···········a·········
   \%·PQ  (read-line))······)n···YLH.·1··print(io.read())···
   A\     /-io-\············)io··EE 4n ····,`·····g·········
  % A\-e-<     |··········)#_(···· V-·.··di _r(a)·v·········
 $ =      \----#·············t\·c&V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··`[x.````?10xx][x.````?10xx]r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<····················
···};s<<tuoc::dts;s>>nic::dts···o>i:1+?/;][gnirtStupnI@tnirP
plannapus
źródło
Ponieważ musisz przeczytać tylko jedną postać, 00\n]]zrobiłbyś to samo.
Martin Ender,
W rzeczy samej. Zapomniałem, że przeczytanie jednej postaci było możliwe.
plannapus
4

Pyth, dodano 1 znak

w

Siatka jest teraz:

····························································
····························································
··········?pio··············································
··········,u················································
··········.t················································
···········s················································
··········· ················································
···········g················································
···········e················································
········w··t················································
···········s················································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
FryAmTheEggman
źródło
4
w__t_Widzę, co tam zrobiłeś
PurkkaKoodari,
@ Pietu1998 muszę planować z wyprzedzeniem! Nie chcę, aby ewoluowało tak szybko, jak tylko esolangi, jak ewolucja hello world: ^)
FryAmTheEggman
4

PowerShell, dodano 14 znaków

write(read-host)

Będę miły i dam ludziom dużo więcej miejsca do oddychania. :)

Siatka jest teraz

····························································
···········i················································
··········?pio;·············································
··········,u················································
··········.t················································
···········s················································
··········· ················································
···········g················································
···········e················································
········write(read-host)····································
···········s················································
····························································
··········································r·················
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
AdmBorkBork
źródło
Ach, przegapiłem to
Patrick Roberts,
4

ALGOL 68, dodano 7 znaków

print(read 
string)

Nowa siatka:

·········v---H\········································;····
······,··>qir@uH···IaP.················USE: io·········>····
Get a chr!?pio;·····l··················readln··········;····
Outputs it,u········e·······c··········print(readline())····
and 'BZam..t········r·······a··········string)·········;····
········~,@s······s t=" " r t#50:20 w !,t,!············E····
······main( ){printf("%c",  (getchar()));}·············;····
···········g·>    input('','s'))·······················P····
···········e·····n··r·······c·········g················;····
·······(write(read-host)····a)········r·input n········(····
·······))E·s········m·······n)········e·print n········;····
········C·E·········p·······((·······{print;exit}····K·*····
·······H·T··········t·······,t········ ···r·················
······O· ···········(·······'u········-·····················
····· ·/············)·······'p········m·····················
····%·P·············)·······)n········1·····················
···A· ······················)io······n ·····················
··%·A························(······-·.·····················
···=·························t\···· ···$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························
Tadeusz B.
źródło
4

LOLCODE , 31 dodanych znaków

HAI 1.4
GIMMEH V
VISIBLE V
KTHXBYE

Po prawej stronie środka obrócono o 90 o . Cieniowana ładnie przeciw -, i dtam. Pomiędzy tym, plikami Batch i PowerShell, jestem prawie pewien, że nie wygram na podstawie punktów. :-)

Siatka jest teraz:

·········v---H\··v+C+<D_··············S·P··············;····
G`····,··>qir@uH·  IaP.C·············A·USE: io·········>····
Get a chr!?pio;····Ol···············Y·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))··<v;···;····
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?···E····
G·····main( ){printf("%c",  (getchar()));}·······pr>···;····
O··········g·>    input('','s'))·················h_····P····
a··········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)···KVGH·e·print n$··m····;····
········C·E·········p·······((···TIIA{print;exit}·pYEK·*····
·······H·T··········t·······,t···HSMI· ···r·······(·········
······O· ···········(·······'u···XIM ·-···········$·········
····· ·/(println····)·······'p···BBE1·m···········a·········
····%·P·  (read-line))······)n···YLH.·1···········r·········
···A· ······················)io··EE 4n ·····`·····g·········
··%·A························(···· V-·.··di _r(a)·v·········
·$·=·························t\···V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························

(Poprawiłem także czwarty wiersz od dołu)

AdmBorkBork
źródło
4

Prolog (SWI), dodano 14 znaków

:-get(C),
put(C).

Czyta pojedynczy znak i wysyła go. W Ideone to działa, ale z wyjściem do stderr. W swiplsystemie Ubuntu wykonuje następujące czynności:

dlosc@dlosc:~/tests$ swipl -qs getput.prolog
|: X
X?-

gdzie Xjest wprowadzony znak i ?-jest monitem. Możesz wyjść z monitu za pomocą Ctrl-D.

Nowa siatka (kod odczytuje od góry do dołu, od prawej do lewej w prawym górnym rogu):

·········v---H\OIv+C+<D_··············S·Psgv···········;····
G`····,··>qir@uH·  IaP.C········LAMBDA·USE: io·········>····
Get a chr!?pio;p···Ol···········ZEROY·Lreadln(write(···;····
Outputs it,u··a$ ohce·······c······ ·L·print(readline())····
and 'BZam..t···a daer·······a·····ai ··string))·o<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:·Eu-··
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;tg··
O·········)g·>    input('','s'))·················h_··)·P(e··
a··········e·····n··r·····^·c·········g··········pd····;Ct··
·······(write(read-host)····a)········r·input n$!?u····()(··
·······))E·s········m·······n)···KVGH·e·print n$!·m····;.C··
········C·E·········p·······((···TIIA{print;exit}·pYEK·*·)··
$'main'H·TUPTUO·····t·00····,t···HSMI· ···r·······(······,··
 \/\I^O= ·TUPNI···S (I\\/\]]'u···XIM ·-···········$·········
  \/· ·/(println··FO) /·····'p···BBE1·m···········a·········
   \%·PQ  (read-line))······)n···YLH.·1··print(io.read())···
   A\     /-io-\············)io··EE 4n ··@.,`·····g·········
  % A\-e-<     |··········)#_(···· V-·.··di _r(a)^v·········
 $ =      \----#·············t\·c&V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··`[x.````?10xx][x.````?10xx]r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<····················
···};s<<tuoc::dts;s>>nic::dts···o>i:1+?/;][gnirtStupnI@tnirP
DLosc
źródło
4

oOo KOD , dodano 1 znak

ROYALr

Nowa siatka:

·········v---H\OIv+C+<D_··············S·Psgv···········;····
G`····,··>qir@uH·  IaP.C········LAMBDA·USE: io·········>····
Get a chr!?pio;p···Ol···········ZEROYALreadln(write(···;····
Outputs it,u··a$ ohce·······c······ ·L·print(readline())····
and 'BZam..t···a daer·······a·····ai ··string))·o<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:·Eu-··
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;tg··
O·········)g·>    input('','s'))·················h_··)·P(e··
a··········e·····n··r·····^·c·········g··········pd····;Ct··
·······(write(read-host)····a)········r·input n$!?u····()(··
·······))E·s········m·······n)···KVGH·e·print n$!·m····;.C··
········C·E·········p·······((···TIIA{print;exit}·pYEK·*·)··
$'main'H·TUPTUO·····t·00····,t···HSMI· ···r·······(······,··
 \/\I^O= ·TUPNI···S (I\\/\]]'u···XIM ·-···········$·········
  \/· ·/(println··FO) /·····'p···BBE1·m···········a·········
   \%·PQ  (read-line))······)n···YLH.·1··print(io.read())···
   A\     /-io-\············)io··EE 4n ··@.,`·····g·········
  % A\-e-<     |··········)#_(···· V-·.··di _r(a)^v·········
 $ =      \----#·············t\·c&V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··`[x.````?10xx][x.````?10xx]r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<····················
···};s<<tuoc::dts;s>>nic::dts···o>i:1+?/;][gnirtStupnI@tnirP
Lynn
źródło
3

Labirynt , dodano 1 znak

,.@

Czyta i pisze postać.

Siatka jest teraz

····························································
···········i········a·······································
··········?pio;·····l·······································
··········,u········e·······································
··········.t········r·······································
··········@s········t·······································
··········· ··printf(·······································
···········g··    input('','s'))····························
···········e·····n··r·······································
········write(read-host)····································
·········E·s········m·······································
········C·E·········p·······································
·······H·T··········t·····················r·················
······O· ···········(·······································
····· ·/············)·······································
····%·P·············)·······································
···A· ······················································
··%·A·······················································
···=························································
····························································
····························································
····························································
····························································
····························································
····························································
Martin Ender
źródło
3

Belka, dodano 11 znaków

Dodano dodatkową literę H, aby przestała zachowywać się jak program dla kotów. qI isą ignorowane. Prawdopodobnie mogłem z tym zrobić coś większego, ale wydawało mi się to trochę oszustwem.

v---H\
>qir@uH

Siatka jest teraz

·········v---H\·············································
·········>qir@uH····a·······································
··········?pio;·····l·······································
··········,u········e·······c·······························
··········.t········r·······a·······························
··········@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·······························
········write(read-host)····a·······························
·········E·s········m·······n·······························
········C·E·········p·······(·······························
·······H·T··········t·······,·············r·················
······O· ···········(·······'·······························
····· ·/············)·······'·······························
····%·P·············)·······)·······························
···A· ······················)·······························
··%·A·······················································
···=························································
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··························································}}
····························································
····························································
····························································
MickyT
źródło
3

ferNANDo , dodano 31 znaków

a b c d e f g h i
b c d e f g h i

Nowa siatka:

·········v---H\·············································
·········>qir@uH···IaP.·····································
Get a chr!?pio;·····l·······································
Outputs it,u········e·······c·······························
and 'BZam..t········r·······a·······························
········~,@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·········g·····················
·······(write(read-host)····a)········r······ ··············
·······))E·s········m·······n)········e·····················
········C·E·········p·······((·······{print;exit}····K······
·······H·T··········t·······,t········ ···r·················
······O· ···········(·······'u········-·····················
····· ·/············)·······'p········m·····················
····%·P·············)·······)n········1·····················
···A· ······················)i·······n ·····················
··%·A························(······-·.·····················
···=·························t····· ···$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························
Mike Bufardeci
źródło
3

Schemat, dodano 8 znaków

(write(
read
))

Nowa siatka:

·········v---H\·······················S·P··············;····
······,··>qir@uH···IaP.··············A·USE: io·········>····
Get a chr!?pio;·····l···············Y·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))········;····
········~,@s······s t=" " r t#50:20 w !,t,!············E····
······main( ){printf("%c",  (getchar()));}·············;····
···········g·>    input('','s'))·······················P····
···········e·····n··r·····^·c·········g················;····
·······(write(read-host)····a)········r·input n$!?·····(····
·······))E·s········m·······n)········e·print n$·······;····
········C·E·········p·······((·······{print;exit}····K·*····
·······H·T··········t·······,t········ ···r·················
······O· ···········(·······'u········-·····················
····· ·/············)·······'p········m·····················
····%·P·············)·······)n········1·····················
···A· ······················)io······n ·····`···············
··%·A························(······-·.··di _r(a)···········
·$·=·························t\···· ···$;di $a··············
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························
Tadeusz B.
źródło
3

Bash, dodano 6 znaków

head -n1

Siatka jest teraz:

·········v---H\·············································
·········>qir@uH····a·······································
··········?pio;·····l·······································
··········,u········e·······c·······························
··········.t········r·······a·······························
··········@s······s t=" " r t#50:20 w !,t,!·················
··········· ··printf(·······(·······························
···········g··    input('','s'))····························
···········e·····n··r·······c·······························
········write(read-host)····a·······························
·········E·s········m·······n·······························
········C·E·········p·······(·······························
·······H·T··········t·······,·············r·················
······O· ···········(·······'·······························
····· ·/············)·······'·······························
····%·P·············)·······)·········1·····················
···A· ······················)········n······················
··%·A·······························-·······················
···=······························· ···$·d··················
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc    
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS    
································e···a·····················}}
·······························h···=························
··································<·························
·································>··························
g. gniazdo
źródło
3

itflabtijtslwi , dodano 5 znaków

GGOaGGOa

Jest to język ///, ale z otoczeniem wprowadzanym przez użytkownika GG. Nazywa się to „cokolwiek, co między nimi”. Dlatego to po prostu odzwierciedla pierwszą postać STDIN. (Ponieważ odczytuje tylko 1 znak, nazwa 2 znaków oznacza, że ​​zawsze się zatrzyma po zastąpieniu Oa tym, co wpiszesz)

Dodano do lewego górnego rogu pionowo od (w poprzek, w dół) = (0,1) do (0,9)

Nowa siatka:

·········v---H\··v+C+<D_··············S·P··············;····
G`····,··>qir@uH·  IaP.C·············A·USE: io·········>····
Get a chr!?pio;····Ol···············Y·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))··<v;···;····
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?···E····
G·····main( ){printf("%c",  (getchar()));}·······pr>···;····
O··········g·>    input('','s'))·················h_····P····
a··········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)········e·print n$··m····;····
········C·E·········p·······((·······{print;exit}·pYEK·*····
·······H·T··········t·······,t········ ···r·······(·········
······O· ···········(·······'u········-···········$·········
····· ·/(println····)·······'p········m···········a·········
····%·P·  (read-line))······)n········1···········r·········
···A· ······················)io······n ·····`·····g·········
··%·A························(······-·.··di _r(a)·v·········
·$·=·························t\···· ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························
FryAmTheEggman
źródło
Świetne wykorzystanie istniejących GOa! +1
ETHprodukcje
3

PHP, dodano 24 znaki

<?php
var_dump($argv)
;?>

Siatka jest teraz:

·········v---H\··v+C+<D_··············S·P··············;····
·`····,··>qir@uH·  IaP.C·············A·USE: io·········>····
Get a chr!?pio;····Ol···············Y·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))··<v;···;····
········~,@s······s t=" " r t#50:20 w !,t,!······?a?···E····
······main( ){printf("%c",  (getchar()));}·······pr>···;····
···········g·>    input('','s'))·················h_····P····
···········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)········e·print n$··m····;····
········C·E·········p·······((·······{print;exit}·p··K·*····
·······H·T··········t·······,t········ ···r·······(·········
······O· ···········(·······'u········-···········$·········
····· ·/(println····)·······'p········m···········a·········
····%·P·  (read-line))······)n········1···········r·········
···A· ······················)io······n ·····`·····g·········
··%·A························(······-·.··di _r(a)·v·········
·$·=·························t\···· ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························
Świetlny
źródło
1
Jeśli kod ma być wykonywany za pomocą przełącznika -r, możesz usunąć znacznik otwierający. Ponadto nie potrzebujesz tagu zamykającego (i tak nie powinien być używany). Twój pełny program jest teraz var_dump($argv);. Zamiast tego możesz użyć print_r($args)i zapisać 1 bajt.
Ismael Miguel,
3

Retina , dodano 1 znak

G`

To jest zasadniczo cat. Gaktywuje tryb grep, tzn. program wypisuje każdą linię programu, która pasuje do podanego wyrażenia regularnego. Ale wyrażenie regularne jest puste, więc każda linia jest zgodna, a całe wejście jest drukowane z powrotem do STDOUT.

·········v---H\··v+C+<D_··············S·P··············;····
·`····,··>qir@uH·  IaP.C·············A·USE: io·········>····
Get a chr!?pio;····Ol···············Y·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))········;····
········~,@s······s t=" " r t#50:20 w !,t,!············E····
······main( ){printf("%c",  (getchar()));}·············;····
···········g·>    input('','s'))·······················P····
···········e·····n··r·····^·c·········g················;····
·······(write(read-host)····a)········r·input n$!?·····(····
·······))E·s········m·······n)········e·print n$·······;····
········C·E·········p·······((·······{print;exit}····K·*····
·······H·T··········t·······,t········ ···r·················
······O· ···········(·······'u········-·····················
····· ·/············)·······'p········m·····················
····%·P·············)·······)n········1·····················
···A· ······················)io······n ·····`···············
··%·A························(······-·.··di _r(a)···········
·$·=·························t\···· ···$;di $a··············
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
·····························r··e···a b c d e f g h i·····}}
·····························p·h···=b c d e f g h i·········
··································<·························
·································>··························
Martin Ender
źródło
3

RunR , dodano 8 znaków

Ostatni na razie

S (I\
FO) /

Dodano blisko środka, w dół i trochę w lewo. Nowa siatka to

·········v---H\·Iv+C+<D_··············S·P··············;····
G`····,··>qir@uH·  IaP.C········LAMBDA·USE: io·········>····
Get a chr!?pio;····Ol···········ZEROY·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))··<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:·E····
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;····
O·········)g·>    input('','s'))·················h_··)·P····
a··········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)···KVGH·e·print n$!·m····;····
········C·E·········p·······((···TIIA{print;exit}·pYEK·*····
$'main'H·T··········t·······,t···HSMI· ···r·······(·········
 \/\··O· ·········S (I\·····'u···XIM ·-···········$·········
  \/· ·/(println··FO) /·····'p···BBE1·m···········a·········
   \%·PQ  (read-line))······)n···YLH.·1···········r·········
   A\     /-io-\············)io··EE 4n ·····`·····g·········
  % A\-e-<     |·············(···· V-·.··di _r(a)·v·········
 $ =      \----#·············t\···V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··`[x.````?10xx][x.````?10xx]r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<····················
···};s<<tuoc::dts;s>>nic::dts···o>i:1+?/;···················
MickyT
źródło
Gdybyś tego nie dodał, zmieściłbym tam F #.
Timwi
@ Timwi, przepraszam za to
MickyT,
3

Mathematica, 19 znaków dodanych

Print@InputString[];

Nowa siatka:

·········v---H\OIv+C+<D_··············S·P··············;····
G`····,··>qir@uH·  IaP.C········LAMBDA·USE: io·········>····
Get a chr!?pio;····Ol···········ZEROY·Lreadln(write(···;····
Outputs it,u········e·······c······ ·L·print(readline())····
and 'BZam..t········r·······a·····ai ··string))··<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:·E····
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;····
O·········)g·>    input('','s'))·················h_··)·P····
a··········e·····n··r·····^·c·········g··········pd····;····
·······(write(read-host)····a)········r·input n$!?u····(····
·······))E·s········m·······n)···KVGH·e·print n$!·m····;····
········C·E·········p·······((···TIIA{print;exit}·pYEK·*····
$'main'H·TUPTUO·····t·······,t···HSMI· ···r·······(·········
 \/\··O· ·TUPNI···S (I\·····'u···XIM ·-···········$·········
  \/· ·/(println··FO) /·····'p···BBE1·m···········a·········
   \%·PQ  (read-line))······)n···YLH.·1··print(io.read())···
   A\     /-io-\············)io··EE 4n ····,`·····g·········
  % A\-e-<     |·············(···· V-·.··di _r(a)·v·········
 $ =      \----#·············t\·c·V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··`[x.````?10xx][x.````?10xx]r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<····················
···};s<<tuoc::dts;s>>nic::dts···o>i:1+?/;][gnirtStupnI@tnirP
plannapus
źródło
3

Haskell, dodano 16 znaków

main = interact id

Kopiuje standardowe wejście na standardowe wyjście. Kod zaczyna się od linii 15, znak 39.

·········v---H\OIv+C+<D_Include C by GS·Psgv···········;····
G`····,··>qir@uH·  IaP.C.·······LAMBDA·USE: io·········>····
Get a chr!?pio;p···Ol···Z: say TZEROYALreadln(write(···;····
Outputs it,u··a$ ohce·······c······ ·L·print(readline())····
and 'BZam..t···a daer·······a·····ai ··string))·o<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:·Eu-··
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;tg··
O·········)g·>    input('','s'))(enildr ,tnirp···h_··)·P(e··
a··········e·····n··r·····^·c·········g··········pd····;Ct··
·······(write(read-host)····a)········r·input n$!?u····()(··
·······))E·s········m·······n)···KVGH·e·print n$!·m····;.C··
········C·E·········p·······((···TIIA{print;exit}·pYEK·*·)··
$'main'H·TUPTUO·····t·00····,t···HSMI· ···r·······(······,··
 \/\I^O= ·TUPNI···S (I\\/\]]'u···XIM ·-···········$·········
  \/· ·/(println··FO) /·····'p···BBE1·main = interact id····
   \%·PQ  (read-line))······)n···YLH.·1··print(io.read())···
   A\     /-io-\············)io··EE 4n ··@.,`·····g·········
  % A\-e-<     |··········)#_(···· V-·.··di _r(a)^v·········
 $ =      \----#·············t\·c&V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··`[x.````?10xx][x.````?10xx]r··e···a b c d e f g h i·····}}
···········>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<····················
···};s<<tuoc::dts;s>>nic::dts···o>i:1+?/;][gnirtStupnI@tnirP
nimi
źródło
3

Oo! , Dodano 19 znaków

Ook. Ook! Ook! Ook.

Umieszczony na 24 linii.

·········v---H\OIv+C+<D_Include C by GS·Psgv···········;····
G`····,.·>qir@uH·  IaP.C.%······LAMBDA·USE: io·········>····
Get a chr!?pio;p···Ol···Z: say TZEROYALreadln(write(···;····
Outputs it,u··a$ ohce····.··c······ ·L·print(readline())····
and 'BZam..t···a daer····x··a·····ai ··string))·o<v;i:j;p:j·
G·······~,@s······s t=" " r t#50:20 w !,t,!······?a?·:,Eu-··
G·····main( ){printf("%c",  (getchar()));}·······pr>·:·;tg··
O·········)g·>    input('','s'))(enildr ,tnirp···h_··)·P(e··
a··········e·····n··r·····^·c·········g··········pd····;Ct··
·······(write(read-host)····a)········r·input n$!?u····()(··
·······))E·s········m·······n)···KVGH·e·print n$!·m····;.C··
········C·E·········p·······((···TIIA{print;exit}·pYEK·*·)··
$'main'H·TUPTUO·····t·00····,t···HSMI· ···r·······(······,··
 \/\I^O= ·TUPNI···S (I\\/\]]'u···XIM ·-···········$·········
  \/· ·/(println··FO) /·····'p···BBE1·main = interact id····
   \%·PQ  (read-line))······)n···YLH.·1··print(io.read())···
   A\     /-io-\············)io··EE 4n ··@.,`·····g·········
  % A\-e-<     |··········)#_(o··· V-·.··di _r(a)^v·········
 $ =      \----#·············t\·c&V ···$;di $a····)·········
{elbaworhT sworht )a][gnirtS(niam diov citats cilbup{C ssalc
;))(txen.)ni.metsyS(rennacS.litu.avaj wen(nltnirp.tuo.metsyS
··`[x.````?10xx][x.````?10xx]r··e···a b c d e f g h i·····}}
··········;>maertsoi<edulcni#p·h···=b c d e f g h i·········
····;s gnirts::dts{)(niam tni····v<   o<Ook. Ook! Ook! Ook.·
···};s<<tuoc::dts;s>>nic::dts···o>i:1+?/;][gnirtStupnI@tnirP
plannapus
źródło
2

Octave / Matlab, dodano 23 znaki

printf(
    input('','s'))

Czy możemy wprowadzić C? :RE

Siatka jest teraz:

····························································
···········i········a·······································
··········?pio;·····l·······································
··········,u········e·······································
··········.t········r·······································
···········s········t·······································
··········· ··printf(·······································
···········g··    input('','s'))····························
···········e·····n··r·······································
········write(read-host)····································
···········s········m·······································
····················p·······································
····················t·····················r·················
····················(·······································
····················)·······································
····················)·······································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
····························································
FryAmTheEggman
źródło