Einführung

In den Fehlerausgaben einiger Sprachen wie Java wird ein Zeiger angezeigt, der dem Programmierer eine Vorstellung davon gibt, wo genau der Fehler aufgetreten ist.

Nehmen Sie dieses Beispiel auf Ideone:

Main.java:12: error: ';' expected
    Invalid Java!
                ^

Beachten Sie, dass das Caret anzeigt, wo sich der ungültige Code befindet?

Herausforderung

Ihre Herausforderung ist: gegebene Anzahl N und String S , legen Sie einen Zeiger auf dem N - ten Zeichen in S .

Beispiele

Eingabe :2, "Lorem ipsum, dollar sit amet."

Ausgabe :

Lorem ipsum, dollar sit amet.
 ^

Regeln

• Die Eingabe erfolgt über STDIN oder Funktionsparameter
• Die Ausgabe wird auf die Konsole oder auf returned ausgedruckt
• In der Ausgabe sind neue Zeilen, Leerzeichen usw. zulässig
• Das Zeigerzeichen muss ein ^ Caret sein und sich in einer neuen Zeile befinden.
• Das ist Codegolf, also gewinnt die kürzeste Antwort. Viel Glück!

C 33

Wenn nur eine Funktion erlaubt ist, kann auch c mithalten.

(Für den Datensatz, 2 Bytes gespeichert thx zu @Cool Guy. Mt thx Kommentar wird unerwartet verdampft.)

1 weiteres Zeichen gespeichert dank @Mig

f(a,c){printf("%s\n%*c",a,c,94);}

Brainf * ck - 133 Bytes

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

Erwartet Eingaben wie [0-9]{2}.*zB "02Hello world !!!" würde produzieren

Hallo Welt!!!
 ^

IA-32 Maschinencode, 24 Bytes

Hexdump:

66 b8 5e 00 42 38 22 75 fb 66 c7 02 0d 0a 42 42
c6 02 20 e2 fa 89 02 c3

Es ist eine Funktion (unter Verwendung der MS- fastcallKonvention), die den String direkt aktualisiert:

__declspec(naked) void __fastcall carrot(int n, char* s)

Assembler-Code:

    mov ax, '^'; // ah = 0, al = '^'

mystrlen:
    inc edx;
    cmp [edx], ah;
    jne mystrlen;

    mov word ptr [edx], '\r\n'; // append a newline
    inc edx;

mymemset:
    inc edx;
    mov byte ptr [edx], ' ';
    loop mymemset;

    mov [edx], eax; // append a caret and terminate the string
    ret;

Es verwendet WORD-sized (16-Bit) Daten an einigen Stellen. Dies hat einen Nachteil (1-Byte-Präfix) im 32-Bit-Code, verkleinert den Code jedoch trotzdem - bei Verwendung von 32-Bit-Daten werden zwei Null-Byte in den Code eingefügt!

Am Ende schreibt es 4 Bytes ( eax) anstelle von 2 Bytes ( ax) - der Code ist auf diese Weise kleiner, und 2 zusätzliche Bytes Junk gehen nach der Zeichenfolgenbeendigung, sodass niemand sie bemerkt.

Verwendungszweck:

int main()
{
    char s[100] = "Lorem ipsum, euro sit amet.";
    carrot(2, s); // credit to Digital Trauma for the name
    puts(s);
}

Pyth , 8

zp\^*tQd

Diese Lösung funktioniert nicht mehr, da sich das Festschreiben nach dem, mit dem ich verknüpft habe, als Sprachenname geändert hat p, um den Wert 1 zu erhalten zp+*dQ\^.

Wenn die Zeichenfolge Anführungszeichen benötigt, vfunktioniert das Hinzufügen am Anfang des Codes. Wenn es durch Kommas getrennt werden muss, werden bis zu 10 Bytes angegeben:

eQp\^*dthQ

T-SQL, 90

Es ist zwar eine recht einfache Frage, aber es ist immer interessant, diese in Sprachen zu testen, die sie eigentlich nicht gut unterstützen oder auch nicht gut Golf spielen.

Diese Antwort ist fast garantiert die längste.

Dadurch wird eine Inline-Tabellenfunktion für SQL Server erstellt, die @n und @ als Parameter verwendet und die Ergebnisse als Spalte zurückgibt. Der Wagenrücklauf ist signifikant, sonst müsste ich char (13) verwenden.

CREATE FUNCTION G(@N INT,@ VARCHAR(MAX))RETURNS TABLE RETURN SELECT @+'
'+SPACE(@n-1)+'^'R

Es wird auf folgende Weise verwendet

SELECT R 
FROM (VALUES
    (1,'This is test 1'),
    (2,'This is test 2'),
    (3,'This is test 3'),
    (4,'This is test 4'),
    (5,'This is test 5')
    )T(n,S)
    CROSS APPLY G(n,S)

Und kehrt zurück

R
---------------
This is test 1
^
This is test 2
 ^
This is test 3
  ^
This is test 4
   ^
This is test 5
    ^

Python, 27

lambda n,s:s+'\n%%%dc'%n%94

Dies verwendet zwei Ebenen der Zeichenfolgenformatierung.

Und hier ist eine 25-Byte- Lösung, die teilweise aus Feersums Antwort gestohlen wurde (mit umgekehrter Argumentreihenfolge):

lambda*p:'%s\n%%%dc'%p%94

Bash, 27

printf %s\\n%$[$1-1]s^ "$2"

Ausgabe

$ ./carrot.sh 2 "Lorem ipsum, dollar sit amet."
Lorem ipsum, dollar sit amet.
 ^$ 

Python, 29

lambda n,s:s+'\n'+' '*~-n+'^'

Verkettet die Zeichenfolge, eine neue Zeile, n-1Leerzeichen und ein ^.

sed, 16

2y/1/ /;2s/ $/^/

Dies ist so etwas wie ein Testfall dieser Meta-Antwort . Insbesondere fordere ich, dass die Zahl N unär eingegeben wird. Beispielsweise für die caret in Position 2, der Eingang für N wäre 11. Es ist auch nicht genau spezifiziert, welche Reihenfolge S und N sein sollen, so dass hier S zuerst folgt, gefolgt von unärem N in einer neuen Zeile, alles durch STDIN.

Ausgabe:

$ { echo "Lorem ipsum, dollar sit amet."; echo 11; } | sed '2y/1/ /;2s/ $/^/'
Lorem ipsum, dollar sit amet.
 ^
$

JavaScript (ES6): 63 62 56 52 32 Byte

Dank nderscore für die starke Reduzierung des Codes.

p=(a,b)=>b+`\n${' '.repeat(a)}^`

Version, die über mehrere Browser hinweg funktioniert (47 Bytes):

p=function(a,b){return b+`\n${' '.repeat(a)}^`}

CJam, 9 Bytes

q~N@(S*'^

Probieren Sie es online aus.

Wie es funktioniert

q~  e# Read the input from STDIN and interpret it.
    e# This pushes the integer and the string on the stack.
N@  e# Push a linefeed an rotate the integer on top of it.
(S* e# Subtract 1 and push a string consisting of that many spaces.
'^  e# Push a caret.

Python, 29

Hier ist ein lustigerer Weg, dies in 29 zu tun:

lambda*p:'%s\n%*s'%(p+('^',))

Anwendungsbeispiel:

>>> f=lambda*p:'%s\n%*s'%(p+('^',))
>>> print f('lorem',5)
lorem
    ^

TI-BASIC, 10 (?) Bytes

Disp Ans
Output(3,N,"^

Die Eingabe erfolgt in der Variablen N, wie in der Frage angegeben, aber Sie können den Buchstaben var S nicht als Zeichenfolge verwenden. Anstelle davon dauert es String - Eingang von Am, so das Beispiel im OP auszuführen: 2->N:"Lorem ipsum, dollar sit amet.":prgm<program name>.

Mir ist bewusst, dass dies wahrscheinlich nicht zählt, da jedes durch Doppelpunkte getrennte Segment technisch eine separate Aussage ist. Hier ist ein 46-Byte- Programm, das Eingaben als N "S"( 2 "Lorem ipsum, dollar sit amet.") akzeptiert.

Input Str1
2+inString(Str1," 
//^there's a space after the quote
Disp sub(Str1,Ans,length(Str1)-Ans
Output(4,expr(sub(Str1,1,1)),"^

Beides setzt voraus, dass der Bildschirm vor dem Ausführen gelöscht wurde.

dc, 19

?pr256r^255/32*62+P

Die Eingabe erfolgt von STDIN. dcZeichenfolgen sind Makrodefinitionen und enthalten in [ ]. Die Zeichenfolge von Leerzeichen wird durch Berechnung der Zahl generiert, die, wenn sie als Basis-256-Byte-Datenstrom ausgedrückt wird, die von uns benötigte Zeichenfolge ergibt. Die Berechnung ist ((n ^ 256) / 255) * 32). Dies gibt nLeerzeichen (ASCII-Zeichen 32), aber wir müssen n-1folgen ^, also addieren wir einfach 62 zur letzten 256-stelligen Basis.

Ausgabe

$ dc -e '?pr256r^255/32*62+P' <<< "2 [Lorem ipsum, dollar sit amet.]"
Lorem ipsum, dollar sit amet.
 ^$

C 59 57 47 Bytes

f(a,c){for(puts(a);--c;putchar(32));puts("^");}

Ziemlich einfach. Ungolfed-Version:

f(char* a,int c){
    puts(a);        //Print the string first

    for(;--c;)      //Until number-1 is not 0
        putchar(32);//Print a space
    puts("^");      //Print a caret
}

Teste es hier
Danke an @anatolyg für das Speichern von 10 Bytes!

C # 55

Eine Funktion, deren Konzept meiner C-Antwort ähnelt, deren Rückgabe diesmal jedoch kürzer ist als die Ausgabe.

string f(string a,int b){return a+'\n'+"^".PadLeft(b);}

SAS, 35 Bytes

%macro a(n,s);put &s/@&n."^";%mend;

Das ist das SAS-Äquivalent einer nackten Funktion; Den Datenschritt zum Aufrufen hinzuzufügen (entspricht der C-Hauptfunktion zum Aufrufen), wäre etwas mehr (9 weitere Bytes - Ty Alex), aber ich denke, das ist für diesen Zweck nicht erforderlich. Wie würde es heißen:

data;
%a(3,"My String");
run;

Es gibt eine reine Makroimplementierung, die jedoch viel länger dauert, auch wenn Sie zulassen, dass eine Warnung zu ungültigen Parametern für n = 1 ausgegeben wird.

Wenn wir vordefinierte Parameter verwenden könnten, wäre SAS vergleichsweise kurz, was eine Seltenheit für eine Sprache ist, die definitiv nicht kurz sein soll.

Wenn ein Dataset die Eingabequelle sein darf, wie Sie es in SAS (oder mit% let-Anweisungen) tun würden, dies aber wahrscheinlich nicht zulässig ist, ist dies sogar noch kürzer ( 27 Byte , was tatsächlich 25 sein könnte) Wenn Sie garantiert haben, dass das Dataset unmittelbar vor der Ausführung erstellt wurde, können Sie Folgendes verwenden set;:

(bereits vorhandener Datensatz)

data b;
  n=3;
  s="My String";
run;

(aktueller Code)

data;set b;put s/@n"^";run;

Matlab / Octave, 41

@(n,s)sprintf('%s\n%s^',s,ones(1,n-1)+31)

Dies ist eine anonyme Funktion, die die Zeichenfolge zurückgibt. Dies erzeugt eine Warnung, die durch vorheriges Aufrufen unterdrückt werden kann warning off.

K, 21 Bytes

{y,"\n",1_|"^",x#" "}

Beispiel:

ryan@DevPC-LX:~/golf/caret$ rlwrap k
K Console - Enter \ for help

  `0:{y,"\n",1_|"^",x#" "}[2;"Lorem ipsum, dollar sit amet."]
Lorem ipsum, dollar sit amet.
 ^  

Erklärung ( xist die Zahl, yist die Zeichenfolge):

{                   }   enclosing function
               x#" "    repeat the space `x` times
           "^",         prepend the caret
          |             reverse the string to put the caret at the end
        1_              drop the extra space
   "\n",                prepend a newline
 y,                     prepend the text

R 49 48 46

Als unbenannte Funktion, die an STDOUT ausgegeben wird. Vielen Dank an @Flounderer für die Verbesserung.

verwendet jetzt strwrap, um das Caret mit n-1 zu identifizieren. cat verwendet ein Trennzeichen von \ n anstelle einer leeren Zeichenfolge.

function(n,s)cat(s,strwrap('^',,n-1),sep='\n')

Testlauf

> f=function(n,s)cat(s,strwrap('^',,n-1),sep='\n')
> f(29,'The caret should point here v hopefully')
The caret should point here v hopefully
                            ^
>

Python3, 38 36 Bytes

def f(s,i):return s+'\n'+' '*~-i+'^'

# OR 

def f(s,i):print(s+'\n'+' '*~-i+'^')

Teste es hier
Danke an @Dennis für das Speichern von 2 Bytes!

Julia, 27 Bytes

(n,s)->s*"\n"*" "^(n-1)*"^"

Dadurch wird eine unbenannte Funktion erstellt, die eine Ganzzahl und eine Zeichenfolge als Eingabe akzeptiert und eine Zeichenfolge zurückgibt. Um es zu nennen, geben Sie ihm einen Namen, z f=(n,s)->....

Alles, was hier passiert, ist, dass wir eine neue Zeile, n-1Leerzeichen und das Caret anhängen . Die Verkettung von *Zeichenfolgen erfolgt mit und die Wiederholung von Zeichenfolgen mit ^.

Ungolfed:

function f(n, s)
    s * "\n" * " "^(n-1) * "^"
end

Beispiel:

julia> println(f(2, "Lorem ipsum, dollar sit amet."))
Lorem ipsum, dollar sit amet.
 ^

PHP (CLI) - 42

<?=sprintf("%s\n%$argv[1]s",$argv[2],'^');

Rufen Sie es von der Kommandozeile aus auf:

php pointer.php 2 "Lorem ipsum, dollar sit amet."

Matlab, 25

Dieser ist extrem frech. Offenbar zeigt druckt nicht druckbare Zeichen als Leerzeichen. Der folgende Code definiert eine Funktion mit dem Namen ans, die den Spezifikationen entspricht.

@(N,S)[S 10 ones(N-1) 94]

So rufen Sie diese Funktion wie folgt auf:

ans(2, 'Lorem ipsum, dollar sit amet.')

gibt die Ausgabe aus:

ans =

Lorem ipsum, dollar sit amet.
 ^

Ich mag den ans =Teil in Matlab Antworten immer nicht . Wenn dies ein Problem ist, muss ich 6 Bytes hinzufügen ... aber ich habe es immer so in Matlab Antworten gesehen. Beachten Sie, dass das Ausführen dieses Codes die Variable überschreibt. ansSie müssen die Funktion also neu definieren, wenn Sie sie ein zweites Mal verwenden möchten!

Mein erster Versuch mit Codegolf

Java, 133 65

String g(int i,String s){for(s+="\n";--i>0;)s+=" ";return s+"^";}

Ich bin sicher, dass es noch mehr reduziert werden kann.

Alter Code

public void go(int i,String s){System.out.println(s);IntStream.range(1,i).forEach(j->System.out.print(" "));System.out.println("^");}

Swift, 41

Es ist enttäuschend, dass Swift keinen Operator *auf Arrayoder hat String.

{$1+reduce(0..<$0,"\n",{$0.0+" "})+"^"}

SpecBAS - 34

1 INPUT n,s$: PRINT s$'TAB n-1;"^"

Apostrophe in PRINTerzwingt eine neue Zeile, dann muss nur noch der Cursor zur korrekten Position bewegt werden.

GolfScript 11

n@~(' '*'^'

Testen Sie hier .

JavaScript - 52 Bytes

Hier ist meins, es ist ziemlich einfach.

function f(n,s){return s+"\n"+Array(n).join(" ")+"^"}

Verwendungszweck:

$ console.log(f(7, "Any string at all"))

Any string at all
      ^

Es zeigt auf das siebte Zeichen.

Perl 5, 31

sub{"$_[0]
"." "x($_[1]-1)."^"}