41

Aufgabenbeschreibung:

Schreiben Sie ein Programm so kurz wie möglich, um einen radialen Verlauf in ASCII-Kunst zu zeichnen. Die Größe des Ausgaberasters ist vordefiniert. Der Mittelpunkt und die Zeichen, die für den Verlauf verwendet werden sollen, werden als Eingabe für das Programm bereitgestellt.

Der Farbverlauf hat eine Größe von 70 × 25 Zeichen mit den folgenden Spezifikationen

Die linke obere Ecke des Gitters hat die Koordinaten (0, 0).
Der Verlauf, der aus den angegebenen Zeichen besteht, wird in 35 Längeneinheiten abgebildet . Eine Längeneinheit ist ein Zeichen groß und zwei Zeichen breit (da monospaced fontsZeichen normalerweise doppelt so hoch wie breit sind).
Innerhalb dieser 35 LU wird der aktuelle Abstand vom Mittelpunkt mit der ^{Anzahl der Gradientenzeichen} / ₃₅ multipliziert , um den Index des Zeichens zu erhalten, das an diesem Punkt gezeichnet werden soll. Bruchzahlen für den Index werden hier auf Null gerundet. Die Längeneinheiten sind als reelle Zahl zu belassen. (Wenn die Ergebnisse identisch sind, spielt die Implementierung natürlich keine Rolle.)
Jenseits dieser 35 LU erscheint nur das letzte Farbverlaufszeichen. Da jedoch das letzte »Farbband« des Verlaufs bereits innerhalb der 35 LU beginnt, erscheint das letzte Zeichen bereits kurz vor der 35 LU.

Eingang:

Die Eingabe erfolgt über die Standardeingabe und besteht aus drei Zeilen, die jeweils durch einen Zeilenumbruch abgeschlossen werden:

Die x- Koordinate des Verlaufsmittelpunkts
Die y- Koordinate des Verlaufsmittelpunkts
Die Zeichen, die zum Zeichnen des Verlaufs verwendet werden sollen. Diese können Leerzeichen enthalten.

Ausgabe:

Die Ausgabe ist der Gradient, wie er in den obigen Regeln für die Standardausgabe definiert ist. Der Standardfehlerstrom wird ignoriert. Jede Linie des Farbverlaufs wird durch einen Zeilenumbruch abgeschlossen. Außer den durch die Eingabe definierten Zeichen dürfen keine weiteren Zeichen auftreten.

Beispieleingang 1:

58
14
 .:;+=xX$&

Beispielausgabe 1:

&&$$$$$$$$XXXXXXXXxxxxxxxxx===========++++++++++++++++++++++++++++++++
&$$$$$$$$XXXXXXXXxxxxxxxxx=========+++++++++++++;;;;;;;;;;;;;;;;;;;;;+
$$$$$$$$XXXXXXXXxxxxxxxx=========+++++++++++;;;;;;;;;;;;;;;;;;;;;;;;;;
$$$$$$$XXXXXXXXxxxxxxxx========++++++++++;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$$$$$$XXXXXXXXxxxxxxxx========+++++++++;;;;;;;;;;;;;:::::::::::::;;;;;
$$$$$XXXXXXXXxxxxxxxx=======+++++++++;;;;;;;;;;;:::::::::::::::::::::;
$$$$$XXXXXXXxxxxxxxx=======+++++++++;;;;;;;;;:::::::::::::::::::::::::
$$$$XXXXXXXXxxxxxxx=======++++++++;;;;;;;;;:::::::::::::::::::::::::::
$$$$XXXXXXXxxxxxxx========+++++++;;;;;;;;::::::::::...............::::
$$$XXXXXXXXxxxxxxx=======+++++++;;;;;;;;:::::::::...................::
$$$XXXXXXXxxxxxxx=======++++++++;;;;;;;::::::::.......................
$$$XXXXXXXxxxxxxx=======+++++++;;;;;;;::::::::.........       ........
$$$XXXXXXXxxxxxxx=======+++++++;;;;;;;:::::::........           ......
$$$XXXXXXXxxxxxxx=======+++++++;;;;;;;:::::::.......             .....
$$$XXXXXXXxxxxxxx=======+++++++;;;;;;;:::::::.......             .....
$$$XXXXXXXxxxxxxx=======+++++++;;;;;;;:::::::.......             .....
$$$XXXXXXXxxxxxxx=======+++++++;;;;;;;:::::::........           ......
$$$XXXXXXXxxxxxxx=======+++++++;;;;;;;::::::::.........       ........
$$$XXXXXXXxxxxxxx=======++++++++;;;;;;;::::::::.......................
$$$XXXXXXXXxxxxxxx=======+++++++;;;;;;;;:::::::::...................::
$$$$XXXXXXXxxxxxxx========+++++++;;;;;;;;::::::::::...............::::
$$$$XXXXXXXXxxxxxxx=======++++++++;;;;;;;;;:::::::::::::::::::::::::::
$$$$$XXXXXXXxxxxxxxx=======+++++++++;;;;;;;;;:::::::::::::::::::::::::
$$$$$XXXXXXXXxxxxxxxx=======+++++++++;;;;;;;;;;;:::::::::::::::::::::;
$$$$$$XXXXXXXXxxxxxxxx========+++++++++;;;;;;;;;;;;;:::::::::::::;;;;;

Beispieleingang 2:

0
0
X.X.X.X

Beispielausgabe 2:

XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XXXXXXXX............XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XXXXXX.............XXXXXXXXXX...........XXXXXXXXXX..........XXXXXXXXXX
..................XXXXXXXXXXX..........XXXXXXXXXX...........XXXXXXXXXX
................XXXXXXXXXXXX...........XXXXXXXXXX..........XXXXXXXXXXX
...............XXXXXXXXXXXX...........XXXXXXXXXX...........XXXXXXXXXXX
............XXXXXXXXXXXXXX...........XXXXXXXXXXX..........XXXXXXXXXXXX
.........XXXXXXXXXXXXXXX............XXXXXXXXXXX...........XXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXX............XXXXXXXXXXX...........XXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX.............XXXXXXXXXXX...........XXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXX..............XXXXXXXXXXXX...........XXXXXXXXXXXXXXX
XXXXXXXXXXXXXXX................XXXXXXXXXXXX............XXXXXXXXXXXXXXX
XXXXXXXXXXX..................XXXXXXXXXXXXX............XXXXXXXXXXXXXXXX
...........................XXXXXXXXXXXXX............XXXXXXXXXXXXXXXXXX
........................XXXXXXXXXXXXXXX............XXXXXXXXXXXXXXXXXXX
......................XXXXXXXXXXXXXXX.............XXXXXXXXXXXXXXXXXXXX
..................XXXXXXXXXXXXXXXXX.............XXXXXXXXXXXXXXXXXXXXXX
.............XXXXXXXXXXXXXXXXXXXX..............XXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX...............XXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXX...............XXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXX.................XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX...................XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXX......................XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Beispieleingang 3:

70
25
.:+#

Beispielausgabe 3:

######################################################++++++++++++++++
#################################################+++++++++++++++++++++
#############################################+++++++++++++++++++++++++
##########################################++++++++++++++++++++++++++++
#######################################+++++++++++++++++++++++++++++++
####################################++++++++++++++++++++++++++++++++++
##################################++++++++++++++++++++++++++++++++++++
################################++++++++++++++++++++++++++++++++++++++
##############################++++++++++++++++++++++++++++++++::::::::
#############################+++++++++++++++++++++++++++::::::::::::::
###########################+++++++++++++++++++++++++::::::::::::::::::
##########################++++++++++++++++++++++++::::::::::::::::::::
#########################++++++++++++++++++++++:::::::::::::::::::::::
########################+++++++++++++++++++++:::::::::::::::::::::::::
#######################++++++++++++++++++++:::::::::::::::::::::::::::
######################++++++++++++++++++++::::::::::::::::::::::::::::
#####################+++++++++++++++++++::::::::::::::::::::::::::::::
####################+++++++++++++++++++::::::::::::::::::::::::.......
####################++++++++++++++++++::::::::::::::::::::::..........
###################+++++++++++++++++++::::::::::::::::::::............
###################++++++++++++++++++:::::::::::::::::::..............
###################+++++++++++++++++:::::::::::::::::::...............
##################++++++++++++++++++::::::::::::::::::................
##################++++++++++++++++++:::::::::::::::::.................
##################++++++++++++++++++:::::::::::::::::.................

Probeneingabe 4

59
1
 abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789<>|,.-#+!$%&/()=?*'_:;

Beispielausgabe 4

!+#-,|><87654210ZYWVUTRQPONLKJIHFEDCBzyxwutsrqonmlkjhgfedcbbbcdefghjkl
!+#-,|><87654210ZYWVUTRQPONLKJIHFEDCAzyxwutsrqonmljihgfdcba abcdfghijl
!+#-,|><87654210ZYWVUTRQPONLKJIHFEDCBzyxwutsrqonmlkjhgfedcbbbcdefghjkl
!+#-,|><97654310ZYXVUTSQPONMKJIHGEDCBAyxwvutrqponmkjihgffeedeeffghijkm
$+#-.|><98654320ZYXWUTSRQONMLKIHGFEDBAzyxwutsrqponmlkjihhggggghhijklmn
$!#-.,|<987643210YXWVUSRQPONLKJIHGEDCBAzywvutsrqponmllkjjjiiijjjkllmno
$!+#.,|><87654210ZYXVUTSRQONMLKJHGFEDCBAzywvutsrrqponnmmlllllllmmnnopq
%!+#-.|><987543210YXWVUTRQPONMLJIHGFEDCBAzyxwvutsrrqppooonnnnnoooppqrr
%$!+-.,|><87654310ZYXWVTSRQPONMLJIHGFEDCBAzyxxwvuttssrrqqqqqqqqqrrsstt
&%!+#-.,><987643210ZYXVUTSRQPONMLKJIHGFEDCBAzyyxwvvuutttssssssstttuuvv
&%$!+#.,|><986543210ZYWVUTSRQPONMLKJIHGFEDDCBAzzyyxwwwvvvuuuuuvvvwwwxy
/&%$!#-.,|><976543210ZYXVUTSRQPONMLKKJIHGFEEDCBBAAzzyyyxxxxxxxxxyyyzzA
(/&%!+#-.,|><876543210ZYXWVUTSRQPONMLKJJIHGGFEEDCCBBBAAAzzzzzzzAAABBBC
)(/%$!+#-.,|><876543210ZYXWVUTSRQPPONMLKKJIIHGGFFEEDDDCCCCCCCCCCCDDDEE
=)(&%$!+#-.,|><986543210ZYYXWVUTSRQPPONMMLKKJIIHHGGGFFFEEEEEEEEEFFFGGG
?=)(&%$!+#-.,|><9876543210ZYXWVVUTSRRQPOONMMLLKJJJIIIHHHHHHHHHHHHHIIIJ
*?=)(/%$!+#-.,|><98765432210ZYXWWVUTSSRQQPOONNMMLLLKKKJJJJJJJJJJJKKKLL
'*?=)(/&%$!+#-.,|><98765432110ZYXXWVUUTSSRRQPPOOONNNMMMMMLLLLLMMMMMNNN
_'*?=)(/&%$!+#-.,|><988765432210ZYYXWWVUUTTSSRRQQQPPPOOOOOOOOOOOOOPPPQ
:_'*?=)(/&%$!+##-.,|><9877654332100ZYYXXWVVUUTTTSSSRRRRQQQQQQQQQRRRRSS
;;:_'*?=)(/&%$!+#-.,,|><98876554322100ZZYYXXWWVVVUUUTTTTTTTTTTTTTTTUUU
;;;:_'*?=)(/&&%$!+#-.,,|><9987665443321100ZZYYYXXXWWWWVVVVVVVVVVVWWWWX
;;;;;:_'*?=)(/&%$$!+#-..,|>><9887665544322211000ZZZYYYYYYYYYYYYYYYYYZZ
;;;;;;:_'*??=)(/&%%$!+##-.,,|><<99877665544333222111100000000000001111
;;;;;;;;:_'*?==)(/&&%$!++#--.,,|>><<9887766655544433333322222223333334

Eine Woche ist vergangen. Es ist Zeit, die Lösungslängen aus dem Wettbewerb unserer Universität zu enthüllen:

167 - Python
189 - Haskell
203 - C
210 - VB.NET
219 - C

Und unsere eigenen Lösungen:

91 - GolfScript
125 - Ruby
157 - PowerShell

code-golf ascii-art Joey
quelle

9

Ich dachte, es wäre cool, einen Tag für ASCII-Fragen zu haben

gnibbler

Entweder habe ich Probleme mit dem LU-Konzept, oder Ihre Beispielausgaben sind falsch. Soweit ich es verstanden habe, sollte es in jeder Band eine gerade Anzahl von Charakteren geben, doch in deinen Samples ist dies nicht wahr. Können Sie mir helfen, das zu verstehen?

Juan

@ Juan: Was genau meinst du? Um ehrlich zu sein, habe ich es letztes Jahr schon getan. Das letzte Band erstreckt sich auf den Rest des Bildes. Ansonsten macht das zweite Beispiel es am deutlichsten, denke ich. Da die 35 LU 70 Zeichen breit sind, ist jedes Band (von denen es 7 gibt) in der obersten Zeile 10 Zeichen breit. Am linken Rand ist jedes Band 5 Zeichen groß (aber nur die ersten 5 Bänder passen in die Höhe des Gitters).

Joey

@Joey Ich meine, in einer bestimmten Zeile sollte die Breite eines Bandes gerade sein, da ein Band aus n LU (jeweils 2 Zeichen breit) bestehen würde. Somit haben wir 2 * n Zeichen pro Band pro Zeile. Ist das richtig?

Juan

@ Juan: Hm, die Rundung sollte auf den Zeichenindex angewendet werden, nicht auf die Längeneinheiten. Ich werde versuchen, die Formulierung so zu ändern, dass sie weniger mehrdeutig ist. Ein weiterer Punkt: Das gesamte Raster ist als Zeichenraster zu verstehen, nicht als SLU-Raster (Square Length Unit :-)). Die Sache mit der LU ist nur zu helfen, den Unterschied zwischen horizontalen und vertikalen Abständen klarer zu machen. Scheint nicht sehr gut zu funktionieren. Ursprünglich hatte ich eine explizite Formel darin, sie wurde entfernt, da sie als zu einfach angesehen wurde.

Joey

11

Ruby 1.9, 116 114 108 101 Zeichen

x,y,z=*$<;25.times{|r|70.times{|c|$><<z[[(c-x.to_i+2.i*(r-y.to_i)).abs/70.0*k=z=~/$/,k-1].min]};puts}

Ventero
quelle

27

Brainfuck - 1286

Dies ist eine meiner Lieblingskreationen. Enthält eine funktionierende (für einige Definitionen der Funktion) Quadratwurzelfunktion.

>,>,<<<<<<<+>,[<+[<+>-],]<-[>>[>]>>>+<<<<[<]<-]>>[<+<+<+>>>-]<<<[>>>+<
<<-]>[>]>>>>>>>+++++[<+++++>-]<[>>+++++++[<++++++++++>-]<[>>+++++++[<+
+++++++++>-]<<[>->+<<-]>>[<<+>>-]<<<<<[>>>>->+<<<<<-]>>>>>[<<<<<+>>>>>
-]<[>+>+<<-]>[<+>-]>>+++++++[<<++++++++++>>-]>[-]>[-]+>[-]<<<<[>+>+<<-
]>[<+>-]<<[>>+<<-]+>>>[>-]>[<<<<->>[-]>>->]<+<<[>-[>-]>[<<<<->>[-]+>>-
>]<+<<-]>[-]>[-]<<<[-]<[-<+[+>+<]>+[<+>-]]++<[->-[>+>>]>[+[-<+>]>+>>]<
<<<<]>[-]>[-]>[<<<+>>>-]<+++++[<+++++>-]<<<<[>>>->+<<<<-]>>>>[<<<<+>>>
>-]<<<<<[>>>>->+<<<<<-]>>>>>[<<<<<+>>>>>-]<[>+>+<<-]>[<+>-]>>+++++[<<+
++++>>-]>[-]>[-]+>[-]<<<<[>+>+<<-]>[<+>-]<<[>>+<<-]+>>>[>-]>[<<<<->>[-
]>>->]<+<<[>-[>-]>[<<<<->>[-]+>>->]<+<<-]>[-]>[-]<<<[-]<[-<+[+>+<]>+[<
+>-]]<<[>>+>+<<<-]>>[>>>+<<<-]>>>[<<[<+>>+<-]>[<+>-]>-]<<[-]<[<<+>>-]<
[>+>+<<-]>[>>>+<<<-]>>>[<<[<+>>+<-]>[<+>-]>-]<<[-]<[<<+>>-]<<>+>>+<<<[
[>>+>>+<<<<-]>>>>[<<<<+>>>>-]>[-]>[-]+>[-]<<<<[>+>+<<-]>>[<<+>>-]<<<[>
>>+<<<-]>>>[>-]>[<<<<+>>[-]>>->]<+<<[>-[>-]>[<<<<+>>[-]+>>->]<+<<-]>[-
]>[-]<<+<<[>>-<[-]<-<<[-]>>]>>[-<<<[>+>+<<-]+>[<+>>+<-]>+>]<<<<]>[<+>-
]<-<<<<<[<+>->>>>>>+<<<<<<]<[>+<-]>>>>>>[>>>+<<<-]>>>[<<[<+>>+<-]>[<+>
-]>-]<+++++++<[-]>[<+++++>-]<<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>[-]>[
<<<<<<<<<<<+>>>>>>>>>>>-]<<<<<<<<<<<[-<[>>+<<-]>[<+>-]<]<.>>>[[<<+>>-]
>]>>>>>-]++++++++++.[-]<-]

Die Ausgabe ist aufgrund von Rundungsfehlern etwas abweichend, aber immer noch erkennbar. Der Fließkommawert liegt außerhalb meines aktuellen Kenntnisstands. Leider funktioniert dies nur mit 16-Bit-Zellen, was bedeutet, dass es hundeschwach wird.

Ausgang 1:

&$$$$$$$$XXXXXXXXxxxxxxxxxx========++++++++++++++++++++++;;;++++++++++
$$$$$$$$$XXXXXXxxxxxxxxxx========++++++++++++++;;;;;;;;;;;;;;;;;;;;;;;
$$$$$$$XXXXXXXXxxxxxxxx========++++++++++++;;;;;;;;;;;;;;;;;;;;;;;;;;;
$$$$$$$XXXXXXxxxxxxxxxx======++++++++++++;;;;;;;;;;;;;;;;:::;;;;;;;;;;
$$$$$XXXXXXXXxxxxxxxx========++++++++++;;;;;;;;;;:::::::::::::::::::;;
$$$$$XXXXXXxxxxxxxxxx======++++++++++;;;;;;;;:::::::::::::::::::::::::
$$$$$XXXXXXxxxxxxxx======++++++++++;;;;;;;;:::::::::::::::::::::::::::
$$$XXXXXXxxxxxxxxxx======++++++++;;;;;;;;::::::::::::::::...::::::::::
$$$XXXXXXxxxxxxxx========++++++++;;;;;;::::::::::::...............::::
$$$XXXXXXxxxxxxxx======++++++++;;;;;;;;::::::::::...................::
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::::..........   ..........
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::........           ......
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::......               ....
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::......               ....
$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::......                   ..
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::......               ....
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::......               ....
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::........           ......
$$$XXXXXXxxxxxxxx======++++++++;;;;;;::::::::::..........   ..........
$$$XXXXXXxxxxxxxx======++++++++;;;;;;;;::::::::::...................::
$$$XXXXXXxxxxxxxx========++++++++;;;;;;::::::::::::...............::::
$$$XXXXXXxxxxxxxxxx======++++++++;;;;;;;;::::::::::::::::...::::::::::
$$$$$XXXXXXxxxxxxxx======++++++++++;;;;;;;;:::::::::::::::::::::::::::
$$$$$XXXXXXxxxxxxxxxx======++++++++++;;;;;;;;:::::::::::::::::::::::::
$$$$$XXXXXXXXxxxxxxxx========++++++++++;;;;;;;;;;:::::::::::::::::::;;

Ausgang 2:

XXXXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXX
XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XXXXXXXX............XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
XX................XXXXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
..................XXXXXXXXXX............XXXXXXXXXX..........XXXXXXXXXX
................XXXXXXXXXXXX..........XXXXXXXXXXXX..........XXXXXXXXXX
..............XXXXXXXXXXXX............XXXXXXXXXX..........XXXXXXXXXXXX
..........XXXXXXXXXXXXXXXX..........XXXXXXXXXXXX..........XXXXXXXXXXXX
..XXXXXXXXXXXXXXXXXXXXXX............XXXXXXXXXX............XXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX............XXXXXXXXXXXX..........XXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX..............XXXXXXXXXX............XXXXXXXXXXXXXX
XXXXXXXXXXXXXXXX................XXXXXXXXXXXX............XXXXXXXXXXXXXX
XXXXXXXXXXXX..................XXXXXXXXXXXX............XXXXXXXXXXXXXXXX
XX..........................XXXXXXXXXXXXXX..........XXXXXXXXXXXXXXXXXX
..........................XXXXXXXXXXXXXX............XXXXXXXXXXXXXXXXXX
......................XXXXXXXXXXXXXXXX............XXXXXXXXXXXXXXXXXXXX
..................XXXXXXXXXXXXXXXXXX..............XXXXXXXXXXXXXXXXXXXX
..............XXXXXXXXXXXXXXXXXXXX..............XXXXXXXXXXXXXXXXXXXXXX
..XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX..............XXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXX................XXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXX..................XXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX....................XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXX......................XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

captncraig
quelle

3

Ich bin hin und her gerissen, wenn ich das fürchterlich und großartig halte: D. Ich denke, eine genaue Quadratwurzel kann nur mit einer Nachschlagetabelle oder mit viel mehr Code erstellt werden

Joey

Nachschlagen würde nicht helfen. Ich kann die ganze Zahl unter der Quadratwurzel gut berechnen. Sie benötigen eine neue Datendarstellung, um mit Gleitkommazahlen umgehen zu können, und ich bin einfach nicht bereit, diesen Sprung zu machen.

Captncraig

12

Python - 141 Zeichen

x=input();y=input();z=raw_input();w=len(z)
for i in range(-y,25-y):print"".join(z[min(w-1,int((i*i*4+j*j)**.5*w/70))]for j in range(-x,70-x))

Knabberzeug
quelle

8

Delphi, 200 (und 185)

Da ich Ascii-Art hier mag eine Delphi-Version dieses Codes Golf:

uses Math;var G:string;X,Y,l,i,j:Int16;begin ReadLn(X,Y);ReadLn(G);l:=Length(G);for j:=-y to 24-y do for i:=-x to 70-x do if i=70-x then WriteLn else Write(g[Min(l,1+Trunc(l*sqrt(i*i/4+j*j)/35))])end.

Vom Charakter her nicht sehr beeindruckend, da ich die Math-Einheit verwenden musste, um die Min () -Funktion zu verknüpfen. Außerdem liest ReadLn () nicht in einem Aufruf ganze Zahlen und Zeichenfolgen, was auch ziemlich teuer ist. Die Newline braucht auch viele Zeichen. Außerdem benötigt Delphi eine Menge Leerzeichen um seine Schlüsselwörter. Nicht sehr stolz auf diesen.

Wie auch immer, die Ausgabe von Beispiel 4 gibt mir:

!+#-,|><87654210ZYWVUTRQPONLKJIHFEDCBzyxwutsrqonmlkjhgfedcbbbcdefghjkl
!+#-,|><87654210ZYWVUTRQPONLKJIHFEDCAzyxwutsrqonmljihgfdcba abcdfghijl
!+#-,|><87654210ZYWVUTRQPONLKJIHFEDCBzyxwutsrqonmlkjhgfedcbbbcdefghjkl
!+#-,|><97654310ZYXVUTSQPONMKJIHGEDCBAyxwvutrqponmkjihgffeedeeffghijkm
$+#-.|><98654320ZYXWUTSRQONMLKIHGFEDBAzyxwutsrqponmlkjihhggggghhijklmn
$!#-.,|<987643210YXWVUSRQPONLKJIHGEDCBAzywvutsrqponmllkjjjiiijjjkllmno
$!+#.,|><87654210ZYXVUTSRQONMLKJHGFEDCBAzywvutsrrqponnmmlllllllmmnnopq
%!+#-.|><987543210YXWVUTRQPONMLJIHGFEDCBAzyxwvutsrrqppooonnnnnoooppqrr
%$!+-.,|><87654310ZYXWVTSRQPONMLJIHGFEDCBAzyxxwvuttssrrqqqqqqqqqrrsstt
&%!+#-.,><987643210ZYXVUTSRQPONMLKJIHGFEDCBAzyyxwvvuutttssssssstttuuvv
&%$!+#.,|><986543210ZYWVUTSRQPONMLKJIHGFEDDCBAzzyyxwwwvvvuuuuuvvvwwwxy
/&%$!#-.,|><976543210ZYXVUTSRQPONMLKKJIHGFEEDCBBAAzzyyyxxxxxxxxxyyyzzA
(/&%!+#-.,|><876543210ZYXWVUTSRQPONMLKJJIHGGFEEDCCBBBAAAzzzzzzzAAABBBC
)(/%$!+#-.,|><876543210ZYXWVUTSRQPPONMLKKJIIHGGFFEEDDDCCCCCCCCCCCDDDEE
=)(&%$!+#-.,|><986543210ZYYXWVUTSRQPPONMMLKKJIIHHGGGFFFEEEEEEEEEFFFGGG
?=)(&%$!+#-.,|><9876543210ZYXWVVUTSRRQPOONMMLLKJJJIIIHHHHHHHHHHHHHIIIJ
*?=)(/%$!+#-.,|><98765432210ZYXWWVUTSSRQQPOONNMMLLLKKKJJJJJJJJJJJKKKLL
'*?=)(/&%$!+#-.,|><98765432110ZYXXWVUUTSSRRQPPOOONNNMMMMMLLLLLMMMMMNNN
_'*?=)(/&%$!+#-.,|><988765432210ZYYXWWVUUTTSSRRQQQPPPOOOOOOOOOOOOOPPPQ
:_'*?=)(/&%$!+##-.,|><9877654332100ZYYXXWVVUUTTTSSSRRRRQQQQQQQQQRRRRSS
;;:_'*?=)(/&%$!+#-.,,|><98876554322100ZZYYXXWWVVVUUUTTTTTTTTTTTTTTTUUU
;;;:_'*?=)(/&&%$!+#-.,,|><9987665443321100ZZYYYXXXWWWWVVVVVVVVVVVWWWWX
;;;;;:_'*?=)(/&%$$!+#-..,|>><9887665544322211000ZZZYYYYYYYYYYYYYYYYYZZ
;;;;;;:_'*??=)(/&%%$!+##-.,,|><<99877665544333222111100000000000001111
;;;;;;;;:_'*?==)(/&&%$!++#--.,,|>><<9887766655544433333322222223333334

Wenn Sie eine eingerückte Ausgabe akzeptieren würden, ist diese Version etwas kürzer, indem Sie die Zeilenumbrüche in Einrückungen umwandeln, die zu einem Zeilenumbruch von 80 Zeichen führen (simulieren Sie einen Zeilenumbruch auf Standard-80x25-Konsolen):

uses Math;var G:string;X,Y,l,i,j:Int16;begin ReadLn(X,Y);ReadLn(G);l:=Length(G);for j:=-y to 24-y do for i:=-x to 70-x do Write(g[Min(l,1+Trunc(l*sqrt(i*i/4+j*j)/35))]:11*Ord(i=-x))end.

(Das spart 15 Zeichen für insgesamt 185 Zeichen). Die Ausgabe für "0 0 XXXX" lautet:

          XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
          XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
          XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
          XXXXXXXX............XXXXXXXXXX..........XXXXXXXXXX..........XXXXXXXXXX
          XXXXXX.............XXXXXXXXXX...........XXXXXXXXXX..........XXXXXXXXXX
          ..................XXXXXXXXXXX..........XXXXXXXXXX...........XXXXXXXXXX
          ................XXXXXXXXXXXX...........XXXXXXXXXX..........XXXXXXXXXXX
          ...............XXXXXXXXXXXX...........XXXXXXXXXX...........XXXXXXXXXXX
          ............XXXXXXXXXXXXXX...........XXXXXXXXXXX..........XXXXXXXXXXXX
          .........XXXXXXXXXXXXXXX............XXXXXXXXXXX...........XXXXXXXXXXXX
          XXXXXXXXXXXXXXXXXXXXXXX............XXXXXXXXXXX...........XXXXXXXXXXXXX
          XXXXXXXXXXXXXXXXXXXXX.............XXXXXXXXXXX...........XXXXXXXXXXXXXX
          XXXXXXXXXXXXXXXXXX..............XXXXXXXXXXXX...........XXXXXXXXXXXXXXX
          XXXXXXXXXXXXXXX................XXXXXXXXXXXX............XXXXXXXXXXXXXXX
          XXXXXXXXXXX..................XXXXXXXXXXXXX............XXXXXXXXXXXXXXXX
          ...........................XXXXXXXXXXXXX............XXXXXXXXXXXXXXXXXX
          ........................XXXXXXXXXXXXXXX............XXXXXXXXXXXXXXXXXXX
          ......................XXXXXXXXXXXXXXX.............XXXXXXXXXXXXXXXXXXXX
          ..................XXXXXXXXXXXXXXXXX.............XXXXXXXXXXXXXXXXXXXXXX
          .............XXXXXXXXXXXXXXXXXXXX..............XXXXXXXXXXXXXXXXXXXXXXX
          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX...............XXXXXXXXXXXXXXXXXXXXXXXXX
          XXXXXXXXXXXXXXXXXXXXXXXXXXXX...............XXXXXXXXXXXXXXXXXXXXXXXXXXX
          XXXXXXXXXXXXXXXXXXXXXXXX.................XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
          XXXXXXXXXXXXXXXXXXXX...................XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
          XXXXXXXXXXXXXX......................XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

(Kannst du den Einzug sehen ?! ;-))

PatrickvL
quelle

7

APL (74)

{L←⍴⊃C Y X⎕IO←⍞⎕⎕0⋄⎕←{C[⊃⌊L⌊35÷⍨L×.5*⍨+/2*⍨1 2÷⍨⍵-Y X]}¨⍳⍵}25 70

Der Grund, warum es in eine Funktion eingeschlossen ist, ist, dass die Änderung von ⎕IOnicht auf den Rest des Systems angewendet wird.

Erläuterung:

L←⍴⊃C Y X⎕IO←⍞⎕⎕0: Setzen Sie ⎕IOauf 0(Array 0-basiert statt 1-basiert), setzen Sie X auf ⎕(Lesen der ersten Zeile), setzen Sie Y auf ⎕(Lesen der zweiten Zeile), setzen Sie C auf ⍞(Lesen der dritten Zeile, ohne Formatierung) und setzen Sie L auf die Länge ( ⍴) von C.
25 70: die Dimensionen der Matrix.
¨⍳⍵: für jedes Element in der Matrix, wobei jedes Element seine eigenen Koordinaten hat ...
⍵-Y X: Differenz zwischen dem aktuellen Punkt und dem Mittelpunkt
1 2÷⍨: dividiere die X-Koordinate durch 2 (weil ein Saibling halb so breit wie hoch ist)
.5*⍨+/2*⍨: nimm die Quadratwurzel aus der Summe der Quadrate
35÷⍨: durch 35 teilen
⌊L⌊: Nehmen Sie das Minimum der Anzahl der Zeichen und den aktuellen Wert und runden Sie ihn ab
,/: Die Werte werden immer noch in eine Liste (nur eines Elements) eingeschlossen. Dadurch entstehen Abstände in der Ausgabe, sodass die Werte aus den Listen entfernt werden.
C[... ]: Verwenden Sie den gefundenen Wert als Index für die Zeichenliste
⎕←: Wir haben jetzt eine Matrix, in der jedes Element (x, y) das Zeichen für (x, y) ist. Geben Sie also die Matrix aus.

Marinus
quelle

6

Perl 5.10, 103 Zeichen

$x=<>;$y=<>;@C=<>=~/./g;for$j(-$y..24-$y){print+(map$C[@C/35*sqrt$_**2/4+$j**2]//$C[-1],-$x..69-$x),$/}

Ninjalj
quelle

Danke an @JB für den netten Trick bei codegolf.stackexchange.com/questions/678/…

ninjalj

Vielen Dank auch an @gnibbler für seinen Trick "Subtraktion im Bereich vorberechnet".

Ninjalj

Sie haben vor der Ausgabe eine Leerzeile. Dies wird derzeit als ungültig gewertet.

Joey

@ Joey: behoben ...

Ninjalj

Trotzdem scheitert hier ein Testfall von mir. Ich habe es der Frage hinzugefügt (Beispiel 4). Irgendwie werden die Nullen in der Ausgabe durch ein Semikolon ersetzt.

Joey

5

Perl, 120 Zeichen

$x,$y=<>,<>;@C=split'',<>;for$j(0..24){print+(map$C[($c=$#C/35*sqrt(($x/2-$_/2)**2+($y-$j)**2))<$#C?$c:$#C-1],0..69),$/}

anonymer Feigling
quelle

scheitert am ersten und dritten Beispiel. absgibt es einen Grund.

Ninjalj

1

Quadrieren entfernt das Zeichen trotzdem, ich sehe nicht, wie abs etwas ändern würde

anonymer Feigling

1

D'oh! Du hast vollkommen recht. Was auf meinem System ausfällt, ist $x,$y=<>,<>;.

Ninjalj

4

Windows PowerShell, 157

Nichts Besonderes. Bereits zu Tode geprügelt:

$x,$y,$c=@($input)
$l=$c.Length
$c+=(""+$c[-1])*90
0..24|%{$r=$_
-join(0..69|%{$c[[math]::truncate([math]::sqrt(($x-$_)*($x-$_)+4*($y-$r)*($y-$r))*$l/70)]})}

Joey
quelle

2

C 176

Hier eine Übersetzung meiner Delphi-Lösung nach C mit 24 Zeichen:

X,Y,l,i,j,t;char G[99];main(){scanf("%d\n%d\n",&X,&Y);gets(G);l=strlen(G);for(j=-Y;j<25-Y;j++)for(i=-X-1;i<70-X;)t=floor(l*sqrt(i*i++/4+j*j)/35),putchar(!i+X?10:G[t<l?t:l-1]);}

Sie können diesen Code hier testen: http://www.ideone.com/oTvHt

PatrickvL
quelle

3

Sie können die Deklaration der int-Variablen in die Argumentliste von main()I rate setzen und auf diese Weise ein Semikolon speichern.

Joey

2

Common Lisp, 173 Zeichen

(let*((c(read))(v(read))(g(read-line))(l(length g)))(dotimes(y 25)(dotimes(x 70)(princ(elt g(min(floor(*(sqrt(+(expt(/(- c x)2)2)(expt(- v y)2)))l)35)(1- l)))))(princ #\
)))

Der einzige wirkliche Trick, den ich hier verwende, ist die Verwendung

#\[actual newline]

als Newline-Zeichen-Literal

Strigoides
quelle

1

scala 223 (204 ohne App-Wrapper)

object C extends App{
import math._
def r=readInt
val p=r
val q=r
val m=readLine
(1 to 70)map(x=>(0 to 25)map(y=>{
printf("%c[%d;%dH%s",27,y,x,m(({
val a=abs(p-x)
val b=abs(q-y)
sqrt(a*a+2*b*b)
}*(m.size-1)/74).toInt))}
))}

Wenn die Spalten und Zeilen (70, 25) dynamisch eingestellt werden, können Farbverläufe für die Bildschirmfüllung verwendet werden.

Benutzer unbekannt
quelle

1

C # 311

Ich dachte, ich mache ein langes Programm, damit sich die anderen besser fühlen:

using System;class P{static void Main(){Func<string>r=Console.ReadLine;int x=int.Parse(r()),y=int.Parse(r());var c=r();for(int j=0;j<25;j++){for(int i=0;i<70;i++){var l=c.Length;Console.Write(c[(int)Math.Min(l*Math.Sqrt(Math.Pow(Math.Abs(x-i)/2.0,2)+Math.Pow(Math.Abs(y-j),2))/35,l-1)]);}Console.Write("\n");}}}

Die Eingabe erfolgt zeilenweise über die Konsole (zwei Zeilen für die Koordinaten und eine für die Verlaufszeichen).

Danke an Joey für die Tipps.

Beispiel 1: http://ideone.com/X0jIZ

Beispiel 2: http://ideone.com/RvICt

Cristian Lupascu
quelle

@Joey Richtig. Ich habe es behoben und begriffen, warum es eine ziemlich schlechte Idee war, dies in C # zu versuchen. Es hat Spaß gemacht. :-)

Cristian Lupascu

@Joey du hast recht, weder die Klasse noch die Methode müssen als öffentlich

Cristian Lupascu

@Joey wenn wir intstattdessen floatdie Ausdrücke verwenden x-iund y-jvom Typ werden int. Aus diesem Grund wird "int Math.Abs" (int value) anstelle von "float one" aufgerufen, was zu einem gewissen Genauigkeitsverlust führt. Ich habe es versucht und einige

Ecken

@Joey Richtig, Abs hat keinen Einfluss auf die Genauigkeit, gibt jedoch ein int zurück, das, wenn es durch 2 geteilt wird, an Genauigkeit verliert, im Gegensatz zu einem float.

Cristian Lupascu

Entschuldigung, ich habe eine Änderung vergessen, die so funktioniert, wie Sie es möchten (kostet zwei Zeichen, aber das ints spart mehr;)). Oh, und *.5kostet nur ein Zeichen.

Joey

Zeichnen eines Farbverlaufs in ASCII-Kunst

Antworten:

Ruby 1.9, 116 114 108 101 Zeichen

Brainfuck - 1286

Python - 141 Zeichen

Delphi, 200 (und 185)

APL (74)

Perl 5.10, 103 Zeichen

Perl, 120 Zeichen

Windows PowerShell, 157

C 176

Common Lisp, 173 Zeichen

scala 223 (204 ohne App-Wrapper)

C # 311