Erkennen Sie das PPCG-Logo? es sieht so aus, wenn man eine ascii-kunst davon macht.

+---+
|PCG|
+---+
   v

In diesem Code Golf erstellen Sie einen Code, der Logos für andere Sites erstellt, ähnlich dem PPCG-Logo.

Was du machen solltest

Die "verkürzte" Zeichenfolge ist die Zeichenfolge mit allen Großbuchstaben und Zahlen in der Eingabezeichenfolge. (Dies wäre, PPCGwenn die Eingabezeichenfolge ist Programming Puzzles & Code Golf)

Die Kiste" (

+---+
|   |
+---+
   v

) sollte perfekt zur verkürzten Saite passen (nicht größer oder kleiner)

Auch das vTeil sollte genau 1 nach unten und 1 nach links nach rechts nach unten sein +.

Geben Sie dann das Feld aus, in dem sich die verkürzte Zeichenfolge befindet.

Beispiel

Stack Overflow:

+--+
|SO|
+--+
  v

Area 51:

+---+
|A51|
+---+
   v

Regeln

Sie können davon ausgehen, dass die Eingabe mindestens eine Ziffer oder einen Großbuchstaben enthält.

Es gelten die Standardregeln für Code-Golf .

Vim, 42 Schläge

:s/[^A-Z0-9]//g
YPVr-i+<DOWN><LEFT>|<ESC><C-V>ky$pYjppVr $xrv

Ersetzen Sie <DOWN>mit ↓, <LEFT>mit ←, <ESC>mit escund <C-V>mit CTRL+ V.

Hier ist eine Animation dieses Skripts (alte Version, die a Vanstelle von a verwendet v):

Erklärung des Skripts:

:s/[^A-Z0-9]//g                               # Remove all the characters that are not uppercase or numbers using a Regex.
YPVr-                                         # Duplicate the current, and replace all the characters of the upper one with dashes.
     i+<DOWN><LEFT>|<ESC>                     # Insert a + on the upper line, and a | on the second line.
                         <C-V>ky$p            # Copy the + and | to the end of both lines.
                                  Yjpp        # Copy the upper line to the bottom two times.
                                      Vr $    # Replace the bottom most line with spaces and put the cursor on the last character.
                                          xrv # Remove the last character and replace the second last character with a v.

V 34 Bytes

Ó[^A-Z0-9]
ys$|ÄVr-r+$.YLppVr x$rv

Beachten Sie, dass dies in einer älteren Version funktioniert hat, in der aktuellen Version jedoch nicht, wenn Sie es online ausprobieren. Ich habe geändert Ä, YPwas funktional äquivalent ist.

Probieren Sie es online!

Erläuterung:

Ó[^A-Z0-9]

Entfernen Sie alles außer Ziffern und Großbuchstaben.

ys$|              "Surround this line with '|' characters.
    Ä             "Duplicate this line
     Vr-          "Replace this whole duplicated line with '-' characters
        r+        "replace the first character with '+'
          $       "Move to the end of the line, and
           .      "Repeat our last command. This is the same as 'r+'
            Y     "Yank the current line
              pp  "and paste it twice
             L    "At the end of our text

Der Puffer sieht nun so aus:

+---+
|A51|
+---+
+---+

Und unser Cursor befindet sich in der ersten Spalte der letzten Zeile.

Vr                 "Change the whole last line to spaces
   x               "Delete a character
    $rv            "And change the last character to a 'v'

Nicht konkurrierende Version: (31 Bytes)

16-Bit-x86-Maschinencode, 72 Byte

In hex:

565789F731C9FCAC84C074143C5A77F73C4173083C3977EF3C3072EBAA41EBE75F5EE81500B07CAA51F3A4AB59E80A00B020F3AAB076AA91AAC351B02BAAB02DF3AAB82B10AB59C3

Parameter: SI= Eingabezeichenfolge, DI- Ausgabepuffer.

Gibt eine NULL-terminierte Zeichenfolge mit Zeilen aus, die durch Zeilenvorschub getrennt sind. Verwendet die Eingabezeichenfolge als temporären Puffer.

56           push   si
57           push   di
89 f7        mov    di,si    ;Using source string as a buffer
31 c9        xor    cx,cx    ;Counter
fc           cld
_loop:
ac           lodsb
84 c0        test   al,al    ;Test for NULL
74 14        jz     _draw    ;Break
3c 5a        cmp    al,'z'   ;\
77 f7        ja     _loop    ; |
3c 41        cmp    al,'a'    ; \
73 08        jae    _stor    ;  >[A-Z0-9]?
3c 39        cmp    al,'9'   ; /
77 ef        ja     _loop    ; |
3c 30        cmp    al,'0'   ;/
72 eb        jb     _loop
_stor:
aa           stosb           ;Store char in the source buffer
41           inc    cx
eb e7        jmp    _loop
_draw:
5f           pop    di
5e           pop    si
e8 15 00     call   _line    ;Output the first line
b0 7c        mov    al,'|'   ;This proc upon return leaves '\n' in AH
aa           stosb           ;First char of the second line
51           push   cx
f3 a4        rep    movsb    ;Copy CX logo characters from the source buffer
ab           stosw           ;Outputs "|\n", which is still in AX
59           pop    cx
e8 0a 00     call   _line    ;Output the third line
b0 20        mov    al,0x20  ;Space
f3 aa        rep    stosb    ;Output it CX times
b0 76        mov    al,'v'
aa           stosb           ;Output the final 'v'
91           xchg   cx,ax    ;CX == 0
aa           stosb           ;NULL-terminate the string
c3           retn            ;Return to caller
_line:
51           push   cx
b0 2b        mov    al,'+'
aa           stosb
b0 2d        mov    al,'-'
f3 aa        rep    stosb     ;'-'*CX
b8 2b 10     mov    ax,0x102b ;"+\n"
ab           stosw
59           pop    cx
c3           retn

Retina , 43 Bytes

[^A-Z\d]

.+
+$.&$*-+¶|$&|¶+$.&$*-+¶$.&$* V

Probieren Sie es online!

Dies ist die perfekte Herausforderung, um Retina, die Golfsprache von Martin Ender, zu demonstrieren.

Diese Lösung ist in zwei Schritte (sogenannte Stufen) unterteilt, wobei beide Stufen eine Ersatzstufe sind.

Die erste Stufe:

[^ AZ \ d]

Dies entspricht den übereinstimmenden Teilzeichenfolgen [^A-Z\d], dh den Zeichen, die keine Großbuchstaben und keine Ziffern sind, und ersetzt sie dann durch nichts, was bedeutet, dass sie gelöscht werden.

Die zweite Stufe:

.+
+$.&$*-+¶|$&|¶+$.&$*-+¶$.&$* V

Das .+stimmt mit dem gesamten Ergebnis überein und ersetzt es dann durch die zweite Zeile.

In der zweiten Zeile:

• $& bezieht sich auf das ganze Spiel
• $.& bezieht sich auf die Länge des gesamten Spiels
• $*Bedeutet, dass Sie die vorherige Ganzzahl nehmen und das nächste Zeichen so oft wiederholen müssen. Hier $.&$*-bedeutet zu wiederholen, -wie lange das Spiel ist.
• ¶ verweist auf eine neue Zeile.

C #, 183 177 165 Bytes

string h(string s){s=string.Concat(s.Where(n=>n>47&n<58|n>64 &n<91));int m=s.Length;var x=new string('-',m);return$"+{x}+\n|{s}|\n+{x}+\n{new string(' ', m + 1)}v";}

Zeichen zu multiplizieren ist in C # furchtbar. Vorschläge geschätzt

vielen dank an aloisdg für -18 bytes

Excel VBA, 375 359 358 Bytes:

Es funktioniert, ich gebe es auf, es kürzer zu machen ...

Bearbeiten: Von if -Anweisungen auf case -Anweisung umgestellt, -16 Byte

Edit2: Wurde u los und durch Len (b), -1 Byte ersetzt

Function b(x)
For i = 1 To Len(x)
a = Mid(x, i, 1)
e = Asc(a)
If e > 64 And e < 91 Or e > 47 And e < 58 Then b = b & a
Next i
For Z = 1 To 4
y = ""
Select Case Z
Case 2
y = "|" & b & "|"
Case 4
For i = 1 To Len(b)
y = y & " "
Next i
y = y & "v"
Case Else
y = "+"
For i = 1 To Len(b)
y = y & "-"
Next i
y = y & "+"
End Select
Debug.Print y
Next Z
End Function

Lua, 145 99 Bytes

Nicht viel zu sagen, das Manipulieren von Strings ist in lua immer wortreich :). Übernimmt ein Befehlszeilenargument und gibt es über STDOUT aus

Vielen Dank an @LeakyNun für die Rettung von 45 Bytes!

n=(...):gsub("[^%u%d]","")s="+"..("-"):rep(#n).."+\n"return s.."|"..n.."|\n"..s..(" "):rep(#n).."V"

100 Bytes von @LeakyNun vorgeschlagen

n=(...):gsub("[^A-Z%d]","")s="+"..("-"):rep(#n).."+\n"return s.."|"..n.."|\n"..s..(" "):rep(#n).."V"

ALTE 145 Bytes

g="|"..(...):gsub("%a+",function(w)return w:sub(1,1)end):gsub("%s",'').."|"S="+"..g.rep("-",#g-2).."+"p=print
p(S)p(g)p(S)p(g.rep(" ",#g-2).."v")

Ungolfed

g="|"                            -- g is the second, and starts with a |
  ..(...):gsub("%a+",            -- append the string resulting of the iteration on each word
    function(w)                  -- in the input, applying an anonymous function
      return w:sub(1,1)          -- that return the first character of the word
    end):gsub("%s",'')           -- then remove all spaces
  .."|"                          -- and append a |
S="+"..g.rep("-",#g-2).."+"      -- construct the top and bot of the box
p=print                          -- alias for print
p(S)p(g)p(S)                     -- output the box
p(g.rep(" ",#g-2).."v")          -- output #g-2 spaces (size of the shortened name), then v

2sable , 36 34 33 32 31 Bytes

Presenting 2sable :). Obwohl es viele Gemeinsamkeiten mit 05AB1E hat, wird dieser automatisch dem Stapel hinzugefügt, anstatt den oberen Teil des Stapels auszugeben. Code:

žKA-ég'-×'+DŠJDU„
|®sX¶®gð×'v

Verwendet die CP-1252- Codierung.

JavaScript (ES6), 99 Byte

(s,t=s.replace(/[^0-9A-Z]/g,``),g=c=>t.replace(/./g,c))=>`${s=`+${g(`-`)}+
`}|${t}|
${s}${g(` `))v`

Haskell, 107 Bytes

Diese Antwort basiert stark auf der Antwort von Zylviij und den Kommentaren von nimi . Ich hätte dieser Antwort weitere Kommentare hinzugefügt, aber leider habe ich nicht genug Repräsentanten.

o n=t++'|':f++"|\n"++t++(f>>" ")++"v"where f=[c|c<-n,any(==c)$['0'..'9']++['A'..'Z']];t='+':(f>>"-")++"+\n"

Zusätzliche Tricks:

• Wird intersectdurch seine Implementierung ersetzt, sodass der Import abgebrochen werden kann. (Randnotiz: Die Implementierung ist fast wörtlich wie in der Bibliothek, ich konnte keine kürzere Version finden.)
• Die Hilfsfunktionen wurden in die whereKlausel verschoben , damit Funktionen den nParameter intern verwenden können.
• Danach (#)war kurz genug, um inliniert zu werden.
• Fügen Sie alles in eine Zeile ein, um zusätzliche Leerzeichen zu vermeiden.

Python 3.5, 114 93 112 Bytes:

import re;Y=re.findall('[A-Z0-9]',input());I='+'+'-'*len(Y)+'+\n|';print(I+''.join(Y)+I[::-1]+'\n'+' '*len(Y)+'v')

Ein volles Programm. Verwendet im Allgemeinen einen regulären Ausdruck, um alle Vorkommen von Großbuchstaben und Zahlen abzugleichen, erstellt dann das Feld mit der exakten Größe basierend auf der Länge der Übereinstimmungsliste und fügt schließlich die verknüpfte Übereinstimmungsliste "hinein".

Probieren Sie es online! (Ideone)

Python 3, 121 - 124 Bytes

Fehler behoben

s=''
for i in input():_=ord(i);s+=("",i)[91>_>64or 47<_<58]
x=len(s)
c='+'+"-"*x+'+'
print(c+"\n|"+s+"|\n"+c+"\n"+" "*x+"v")

importiert keine Bibliotheken wie andere Python-Antworten.

Java 8, 149 Bytes

s->{s=s.replaceAll("[^A-Z0-9]","");String t="+",r;int l=s.length(),i=l;for(;i-->0;t+="-");for(r=(t+="+\n")+"|"+s+"|\n"+t;++i<l;r+=" ");return r+"v";}

Probieren Sie es online aus.

Erläuterung:

s->{                     // Method with String as both parameter and return-type
  s=s.replaceAll("[^A-Z0-9]","");
                         //  Leave only the uppercase letters and digits
  String t="+",          //  Temp-String, starting at "+"
         r;              //  Result-String
  int l=s.length(),      //  Amount of uppercase letters and digits `l`
  i=l;for(;i-->0;t+="-");//  Loop and append `l` amount of "-" to the temp-String
  for(r=(t+="+\n")       //  Append "+" and a new-line to the temp-String
        +"|"+s+"|\n"+t;  //  Set the result to `t`, "|", modified input, "|", new-line, `t`
                         //  all appended to each other
      ++i<l;r+=" ");     //  Loop and append `l` amount of spaces to the result
  return r+"v";}         //  Return the result-String with appended "v"

Pyke, 39 Bytes

cFDh~u{!Ih(sil\-*\+R\+sj\|i\|++jild*\v+

Probieren Sie es hier aus!

12 Bytes für die Erstellung von Mini-Strings, 20 Bytes für die Formatierung. Freude!

Pyth, 38 37 Bytes

Jj*\-lK@jrG1UTz"++"jK"||"JtXJ"-+"" v

Probieren Sie es online aus.

Beachten Sie den Zeilenumbruch am Anfang.

Python 2, 113 Bytes

def f(n):c=filter(lambda x:x.isupper()^x.isdigit(),n);L=len(c);h='+'+L*'-'+'+\n';return h+'|'+c+'|\n'+h+' '*L+'v'

Jolf, 35 Bytes

Ά+,Alγ/x"[^A-Z0-9]"1'+'-'|γS*lγ" 'v

Ich brauche einen kürzeren Weg, um alle bis auf Groß- und Kleinschreibung zu entfernen ...

C 171 163

Die Funktion f()ändert ihre Eingabe und gibt das Ergebnis aus.

l;f(char*n){char*p=n,*s=n,c[99];for(;*n;++n)isupper(*n)+isdigit(*n)?*p++=*n:0;*p=0;memset(c,45,l=strlen(s));c[l]=0;printf("+%s+\n|%s|\n+%s+\n%*.cv\n",c,s,c,l,32);}

Testprogramm

Erfordert einen Parameter, den String, der im Favicon verwendet werden soll:

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

int main(int argc, const char **argv)
{
    char *input=malloc(strlen(argv[1])+1);
    strcpy(input,argv[1]);
    f(input);
    free(input);
    return 0;
}

Haskell, 161

import Data.List
r=replicate
l=length
f n=intersect n$['0'..'9']++['A'..'Z']
t n='+':(r(l$f n)'-')++"+\n"
o n=(t n)++"|"++(f n)++"|\n"++(t n)++(r(l$f n)' ')++"V"

Verwendung

o"Stack Overflow"
+--+
|SO|
+--+
  V

o"Area 51"
+---+
|A51|
+---+
   V

Bash, 99 74 Bytes

s=$(sed s/[^A-Z0-9]//g);a=${s//?/-};echo -e "+$a+\n|$s|\n+$a+\n${s//?/ }v"

Verwendung: Führen Sie den obigen Befehl aus, geben Sie den Site-Namen ein, drücken Sie die Eingabetaste und dann Ctrl+ D(senden Sie 'Dateiende').

CJam, 41

"||"q_'[,65>A,s+--*__"+-"er_@\_,((S*]N*'v

Probieren Sie es online aus

R, 108 Bytes

cat(x<-gsub("(.*)","+\\1+\n",gsub(".","-",y<-gsub("[^A-Z0-9]","",s))),"|",y,"|\n",x,gsub("."," ",y),"v",sep="")

Erläuterung

Von innen nach außen gehen (denn wer es nicht mag, globale Variablen innerhalb eines regulären Ausdrucks zuzuweisen) s:

y<-gsub("[^A-Z0-9]","",s) behält Groß- und Kleinschreibung bei und weist y den resultierenden Wert zu.

gsub(".","-",y<-...) Ersetzt alle Zeichen durch Bindestriche.

x<-gsub("(.*)","+\\1+\n",gsub(...)) chucks a + an jedem Ende der Reihe von Bindestrichen und eine neue Zeile, und wir speichern das als x.

Der Rest ist ziemlich unkompliziert, wird in der richtigen Reihenfolge ausgegeben und verwendet die Tatsache, dass die Anzahl der Leerzeichen vor vdem gleich der Länge von y ist.

Brachylog , 61 Bytes

Wird am 7. Juli mit dem Repository verknüpft, um die Abwärtskompatibilität sicherzustellen.

lybL:{,."-"}ac:"+"c:"+"rcAw@NNw"|"Bw?wBwNwAwNwL:{," "w}a,"v"w

Nicht konkurrierend, 53 Bytes

lL:"-"rjb:"+"c:"+"rcAw@NNw"|"Bw?wBwNwAwNw" ":Ljbw"v"w

Probieren Sie es online!

APL, 52 49 Bytes

{x⍪2⌽'v'↑⍨≢⍉x←⍉z⍪⍨(z←'+|+')⍪'-','-',⍨⍪⍵/⍨⍵∊⎕D,⎕A}

(bis zu 49 dank des Kommentars).

Perl, 57 Bytes

56 Byte Code + 1 für -p.

y/a-z //d;$d="-"x y///c;$_="+$d+
|$_|
+$d+
".$"x y///c.v

Ich habe ursprünglich versucht, dies nur mit regulären Ausdrücken zu machen, aber es war viel größer als ich gehofft hatte, also habe ich stattdessen einige Zeichenfolgenwiederholungen verwendet.

Probieren Sie es online!

MATL , 34 Bytes

t1Y24Y2hm)T45&Ya'+|+'!wy&h10M~'v'h

Probieren Sie es online!

t        % Implicit input. Duplicate
1Y2      % Uppercase letters
4Y2      % Digit characters
h        % Concatenate horizontally: string with uppercase letters and digits
m        % True for input chars that are uppercase letters or digits
)        % Keep only those
T45&Ya   % Pad up and down with character 45, which is '-'. Gives three-row char array
'+|+'!   % Push this string and transpose into a column vector
wy       % Swap, duplicate the second array from the top. This places one copy of the
         % column vector below and one above the three-row char array
&h       % Contatenate all stack arrays horizontally. This gives the box with the text
10M      % Retrieve the string with selected letters
~        % Logical negate. Gives zeros, which will be displayes as spaces
'v'      % Push this character
h        % Concatenate horizontally with the zeros.
         % Implicitly display the box with the text followed by the string containing
         % the zero character repeated and the 'v'

JavaScript (ES6), 119 Byte

h=a=>"+"+"-".repeat(a.length)+"+\n";j=a=>(a=a.replace(/[^A-Z0-9]/g,""),h(a)+"|"+a+"|\n"+h(a)+" ".repeat(a.length)+"v");

J , 52 Bytes

'v'(<3 _2)}4{.1":]<@#~2|'/9@Z'&I.[9!:7@'+++++++++|-'

Probieren Sie es online!

   [9!:7@'+++++++++|-'            Set the box drawing characters.
        '/9@Z'&I.                 Interval index, 1 for numbers, 3 for 
                                  uppercase letters.
          ]  #~2|                 Mod 2, and filter
                                  the characters that correspond to 1s.
           <@                     Put them in a box.
           1":                    Convert to a character matrix, so we can do stuff to it.
           4{.                    Add a 4th line filled with spaces   
       'v'(<3 _2)}                Insert a “v” at 3,−2

Ruby, 81 Bytes (78 + -pFlag)

gsub(/[^A-Z\d]/,'')
gsub(/.+/){"+#{k=?-*s=$&.size}+
|#{$&}|
+#{k}+
#{' '*s}v"}

Common Lisp (Lispworks), 159 Bytes Bytes

(defun f(s)(labels((p(c l)(dotimes(i l)(format t"~A"c))))(let((l(length s)))#1=(p"+"1)#2=(p"-"l)#3=(format t"+~%")(format t"|~A|~%"s)#1##2##3#(p" "l)(p"v"1))))

ungolfed:

(defun f (s)
  (labels ((p (c l)
             (dotimes (i l)
               (format t "~A" c))))
    (let ((l (length s)))
      #1=(p "+" 1)
      #2=(p "-" l)
      #3=(format t "+~%")
      (format t "|~A|~%" s)
      #1#
      #2#
      #3#
      (p " " l)
      (p "v" 1))))

Verwendung:

CL-USER 2 > (f "so")
+--+
|so|
+--+
  v
NIL

CL-USER 3 > (f "pcg")
+---+
|pcg|
+---+
   v
NIL