Buchstabiere die Revu'a


16

Eigentlich nicht weder von inspiriert Atbash Selbst Palindrome noch von Generalized Gematria Calculator .

Bei einem String s der Länge n wird die Revu'a-Sequenz ausgegeben , bei der es sich um das erste Zeichen von s , die ersten beiden Zeichen von s , ... die ersten n –2 Zeichen von s und die ersten n –1 Zeichen von s handelt das ganze s .

Die Zeichenfolge besteht nur aus Unicode-Zeichen (beliebige Codierung), die eine starke Richtungsabhängigkeit aufweisen und im Bereich von 0x0000 bis 0xFFFF liegen. Es werden jedoch keine Richtungssteuerzeichen angezeigt. Alle Zeichen in einer bestimmten Zeichenfolge haben dieselbe Richtung.

Sie können in Array - Schreibweise zurückzukehren ["t","te","tes","test"], als ein Leerzeichen getrennte Zeichenfolge "t te tes test", wie mehrzeiligen Text
t
te
tes
test
, einem vorformatierten Array

t
te
tes
Prüfung
oder ähnliches. Die Anzahl der führenden, trennenden und nachfolgenden Abstände ist nicht wichtig, ebenso wenig wie die Anzahl der nachfolgenden Zeilenumbrüche. Fragen Sie im Zweifelsfall.

Bei der Eingabe von rechts nach links muss die Ausgabe von rechts nach links in der richtigen Reihenfolge erfolgen:
Eingabe: "נחמן"
Ausgabe: "נ נח נחמ נחמן"oder

נ
נח
נחמ
נחמנח
oder ["נ","נח","נחמ","נחמן"]. Unter ungültigen Ergebnissen sind "נחמן נחמ נח נ", "ן מן חמן נחמן"und "נחמן חמן מן ן".

Antworten:



12

JavaScript (ES6), 27 26 25 Byte

Dank @nicael und @ MartinBüttner ein Byte gespart, dank @Neil ein Byte

x=>x.replace(/.?/g,"$` ")

Nutzt einige integrierte Funktionen von JS .replace. Insbesondere wird in der Ersetzung $`alles vor dem übereinstimmenden Zeichen. Wenn Sie den regulären Ausdruck verwenden, bedeutet dies /.?/gnicht, /./gdass er auch mit der leeren Zeichenfolge am Ende übereinstimmt.


Ich habe ein weiteres Byte gespeichert: f=x=>x.replace(/.?/g,"$")`. Sie erhalten einen zusätzlichen führenden Platz, aber das ist erlaubt.
Neil

@Neil Danke, ich hatte keine Ahnung, dass das funktionieren würde!
ETHproductions

Ugh, ich habe vergessen, mein `richtig zu zitieren, aber ich sehe, dass du herausgefunden hast, was ich meinte.
Neil

6

Japt, 10 4 Bytes

Ich wusste nicht, dass eine kumulative Reduzierung in diesem Fall so nützlich wäre. :-)

UŒ+

Ausgaben als Array, standardmäßig durch Kommas getrennt. Wenn dies nicht zulässig ist, verwenden Sie stattdessen diesen 6-Byte-Code:

U¬å+ ·

Probieren Sie es online!

Wie es funktioniert

      // Implicit: U = input string
U¬    // Split U into chars.
  å+  // Cumulative reduce: loop through each item in the array, concatenating it to the total.
      // ["t","e","s","t"] => ["t","te","tes","test"].
      // Implicit: output last expression

7
Verwendet die Redewendung "Online ausprobieren!" und nicht mit Try it online verlinken ! moralisch vertretbar? : P
Martin Ender

3
@ MartinBüttner Ich habe diesen Satz ungefähr einen Monat lang in Japt-Antworten verwendet, bevor Dennis ihn als Marke eingetragen hat. Ich denke, ich sollte ein moralisches Recht haben, es weiter zu benutzen: P
ETHproductions

6

Brainfuck, 40 Bytes

Meine Konsole unterstützt keine Zeichen von rechts nach links, aber ich denke nicht, dass es funktionieren wird: c

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

Ungolfed:

++++++++++> # Store 10 (Newline)
,[>,]       # Store input
<[<]>       # Goto first character
[           # While next character
  [<+>-]    # Copy character to the left
  <[<]>     # Goto first character
  [.>]      # Print all charaters
  >         # Go to next character
]

13
Sie können sie als separate Antworten veröffentlichen.
Nicoleel

20
Sie sollten sie als separate Antworten veröffentlichen.
Timwi

17
Sie müssen sie als separate Antworten veröffentlichen.
Nicoleel

21
Sie WILL sie als separate Antworten posten.
Timwi

11
Sie haben mich ÜBERZEUGT , sie als separate Antworten zu veröffentlichen.
YoYoYonnY

5

Retina, 11 7 Bytes

.
 $`$0

Die Ausgabe ist durch Leerzeichen getrennt, mit einem führenden Leerzeichen und einem nachfolgenden Zeilenvorschub.

Probieren Sie es online!


Für die Nachwelt ist es für 5 weitere Bytes in Perl portierbar: perl -pE 's/./$$ & \ n / g'`. (Ich bin 11 Monate zu spät, ich weiß)
Dada

4

Python, 35

f=lambda s:f(s[:-1])+[s]if s else[]

Es konnte keine Möglichkeit gefunden werden, and/ordie Rekursion zu vereinfachen, da dies []falsch ist.

Bei einer rekursiven Lösung wird eine Liste von Zeichenfolgen zurückgegeben.

Probieren Sie es online aus


4

Prolog (SWI), 60 49 Bytes

Code:

p(X):-findall(S,atom_prefix(X,S),[_|R]),write(R).

Erklärt:

atom_prefix mit X als Eingabe und S als Variable gibt 1 Präfix des Atoms X beginnend mit dem leeren Atom an.

findall holt alle Lösungen und listet sie auf.

[_ | R] wirft den Kopf (das leere Atom) weg und speichert den Schwanz in R

Beispiele:

p('נחמן').
[נ, נח, נחמ, נחמן]

p('test').
[t, te, tes, test]

Probieren Sie es hier online aus

Bearbeiten: 11 Bytes gespart, indem nur der Schwanz in R gespeichert wird .



3

GNU Sed, 21

Die Punktzahl enthält +1 für die -EOption zu sed:

:
s/^(\S+)\S/\1 &/
t

Funktioniert für LTR, aber nicht für RTL - das habe ich verpasst. . Eigentlich ist es tut Arbeit wurde die RTL - Rendering einfach nicht richtig in meinem Terminal. Es funktioniert gut mit IO in einem vernünftigen Texteditor (z. B. Emacs) angezeigt. Es funktioniert auch in Ideone:

Probieren Sie es online aus.


3

Brachylog , 5 Bytes (nicht konkurrierend)

@[@w\

Probieren Sie es online!

Erläuterung

@[       Take a prefix of the input
  @w     Write this prefix to STDOUT followed by a linebreak
    \    False: try another prefix

Von rechts nach links verlaufende Zeichenfolgen scheinen einwandfrei zu funktionieren, obwohl ich sie nie in Betracht gezogen habe.


Warum nicht konkurrieren?
Adám

@ Adám @[und @wwurden unbedingt nach April / Mai 2016 implementiert. Das genaue Datum konnte man auf den Github-Commits finden, aber es ist sicher nicht, bevor diese Challenge eingereicht wurde.
Fatalize

2

CJam, 9 Bytes

l{N2$@+}*

Der Ausgang ist zeilenweise getrennt.

Teste es hier.

Erläuterung

l     e# Read input.
{     e# Fold this block over the input, which is effectively a foreach-loop which skips
      e# the first character...
  N   e#   Push a linefeed.
  2$  e#   Copy the previous string.
  @   e#   Pull up the current character.
  +   e#   Concatenate.
}*

Ich habe total damit gerechnet, dass CJam kürzer sein wird.
Timwi

@Timwi Es gibt weder eine integrierte Funktion "Alle Präfixe / Suffixe abrufen" noch eine Funktion höherer Ordnung für die verallgemeinerte Akkumulation. Selbst wenn dies nicht optimal ist, bezweifle ich, dass es erheblich übertroffen werden kann.
Martin Ender

Ll{+_p}/;ist gleich lang und postet, weil ich nicht sicher bin, ob jemand mit mehr Erfahrung in der Lage sein könnte, mehr Golf zu spielen, und vielleicht auch die Sache mit den Anführungszeichen zu
korrigieren

2

JavaScript, 36 Bytes

x=>[...x].map((c,i)=>x.slice(0,i+1))

Demo:

a=x=>[...x].map((c,i)=>x.slice(0,i+1));
document.write(
  a("test")+"<br>"+
  a("נחמן")
)

Das Prinzip besteht darin, die Zeichenfolge vom ersten Zeichen bis zu jedem Zeichen im Wort abzubilden und auszugeben. Überraschenderweise funktioniert dies auch für die RTL-Strings perfekt, es ist keine Optimierung erforderlich.


2

Meine Konsole unterstützt keine Zeichen von rechts nach links, aber ich denke nicht, dass es funktionieren wird: c

C, 74 Bytes (2. Eintrag)

char m[2<<9];i;main(){do{m[i]=getchar();printf("%s ",m);}while(m[i++]>0);}

Ungolfed:

#include <stdio.h>

// char, because `printf("%s", str);` expects a array of characters.
char str[2<<9];
int  str_len = 0;
int main(void) {
    do {
        str[str_len]=getchar();
        printf("%s ", str);
    } while(m[i++]>0);
    return 0;
}

2

Meine Konsole unterstützt keine Zeichen von rechts nach links, aber ich denke nicht, dass es funktionieren wird: c

C, 105 Bytes (3. Eintrag)

m[2<<9];i;j;k;main(){while((m[i++]=getchar())<0);for(;j<i;j++,putchar(10))for(k=0;k<j;k++)putchar(m[k]);}

Ungolfed:

#include <stdio.h>

int str[2<<9];
int str_len = 0;
int main(void) {
    do {
        str[str_len] = getchar();
    } while(str[str_len++] != EOF);
    int i;
    for(i=0; i<str_len; i++) {
        int j;
        for(j=0; j<i; j++) {
          putchar(str[j]);
        }
        putchar(10);
    }
}

2

TI-BASIC, 18 Bytes

For(X,1,10^(9
Disp sub(Ans,1,X
End

Nicht technisch gültig: TI-BASIC unterstützt Unicode nicht.

Benennen Sie dies prgmAund geben Sie es mit ein Ans.

Die Programmrekursion wäre kürzer, die Variablen könnten jedoch nicht initialisiert werden. Daher zeigen wir bei jeder Iteration eine Teilzeichenfolge der Eingabe an. Die Eingabe wird nie überschrieben, da Disp keinen Wert zurückgibt.

Schließlich wird das Programm mit einem Fehler beendet, nachdem der gesamte String gedruckt wurde.



2

Java 7, 95 92 Bytes

String d(String a){for(int i=a.length();i-->0;a=a.substring(0,i)+(i>0?"\n":"")+a);return a;}

Vorherige Antwort ( 95 Bytes ):

String c(String s){String r="";for(int i=0;++i<=s.length();r+=s.substring(0,i)+"\n");return r;}

Ich habe einen rekursiven Ansatz versucht, aber ich konnte ihn nicht wirklich zum Laufen bringen. Vielleicht wird jemand anderes (kürzer als diese for-Schleife).

Ungolfed & Testfälle:

Probieren Sie es hier aus.

class M{
  static String d(String a){
    for(int i = a.length(); i-- > 0; a = a.substring(0, i) + (i > 0 ? "\n" : "") + a);
    return a;
  }

  public static void main(String[] a){
    System.out.println(c("test"));
    System.out.println();
    System.out.println(c("נחמן"));
  }
}

Ausgabe:

t
te
tes
test

נ
נח
נחמ
נחמן

2

Dip , 1 Byte (nicht konkurrierend)

E

Erläuterung:

.   # Implicit input
 E  # Get prefixes
  . # Implicit print

Ich habe noch nie von Dip gehört.
Adám

@ Adám There ....
Oliver Ni

1

MATL , 8 Bytes

Verwendet die aktuelle Version (8.0.0) von Sprache / Compiler

jtn1X"YR

Beispiel

>> matl
 > jtn1X"YR
 >
> test
t
te
tes
test

Erläuterung

j           % input string
tn          % duplicate and get length, say "N"
1X"         % repeat string N times vertically. Gives a char matrix
YR          % lower triangular part of matrix. Implicitly print


1

𝔼𝕊𝕄𝕚𝕟, 7 Zeichen / 16 Bytes

ᴉⓜᵖ ᵴ˖$

Try it here (Firefox only).

Es gibt wahrscheinlich irgendwo eine eingebaute Lösung dafür - ich habe sie einfach nicht gefunden.

Erläuterung

ᴉⓜᵖ ᵴ˖$ // implicit: ᴉ=split input, ᵴ=empty string
ᴉⓜ      // map over ᴉ
   ᵖ ᵴ˖$ // push ᵴ+=(mapped item char)
         // implicit stack output, separated by newlines

1

Javascript ES6, 29 Bytes

(a,b='')=>[...a].map(x=>b+=x)

Das ist nichts zu gewinnen, aber es ist eine einfache Lösung.



1

Python, 32 Bytes

f=lambda s:s and f(s[:-1])+" "+s

Rekursive Funktion, die eine durch Leerzeichen getrennte Zeichenfolge mit einem führenden Leerzeichen ausgibt.

Ein 34-Byte-Programm (Python 2):

s=""
for c in input():s+=c;print s

1

V , 5 Bytes (nicht konkurrierend)

òÄ$xh

Probieren Sie es online!

Diese Sprache ist neuer als die Herausforderung und macht diese Antwort nicht konkurrierend. Erläuterung:

ò       " Recursively:
 Ä      "   Duplicate this line
  $     "   Move to the end of this line
   x    "   Delete one character
    h   "   Move one character to the right, which will throw an error when the line is one character long

1

PowerShell v2 +, 28 Byte

[char[]]$args[0]|%{($o+=$_)}

Nimmt Eingaben auf $args[0], charwandelt sie als -array um und leitet die Zeichen in eine Schleife |%{...}. Jede Iteration wird $oüber +=das aktuelle Zeichen akkumuliert $_. Dieser Ausdruck ist in Parens eingekapselt, sodass eine Kopie in die Pipeline eingefügt wird. Am Ende der Ausführung wird die Pipeline Write-Outputgeleert, wodurch eine neue Zeile zwischen den Elementen eingefügt wird.

PS C:\Tools\Scripts\golfing> .\spell-out-the-revua "נחמן"
נ
נח
נחמ
נחמן

PS C:\Tools\Scripts\golfing> .\spell-out-the-revua "PPCG"
P
PP
PPC
PPCG


Durch die Nutzung unserer Website bestätigen Sie, dass Sie unsere Cookie-Richtlinie und Datenschutzrichtlinie gelesen und verstanden haben.
Licensed under cc by-sa 3.0 with attribution required.