Introducción

En las salidas de error de algunos lenguajes, como Java, se muestra un puntero para darle al programador una idea exacta de dónde se produjo el error.

Tome este ejemplo en Ideone:

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

¿Observe que el cursor muestra dónde está el código no válido?

Desafío

Su reto es: número dado N y la cadena S , coloque un puntero en el N º personaje en S .

Ejemplos

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

Salida :

Lorem ipsum, dollar sit amet.
 ^

Reglas

• La entrada se recibe a través de STDIN o parámetros de función
• La salida se imprime en la consola o returned
• Se permiten nuevas líneas, espacios, etc. en la salida
• El carácter del puntero debe ser un ^ caret y debe estar en una nueva línea.
• Este es el código de golf, por lo que gana la respuesta más corta. ¡Buena suerte!

C 33

Si solo se permite una función, incluso c puede competir.

(Para el registro, 2 bytes guardaron thx en @Cool Guy. El comentario de Mt thx se evaporó inesperadamente).

1 char más guardado gracias a @Mig

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

Brainf * ck - 133 bytes

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

Espera entrada como, [0-9]{2}.*por ejemplo, "¡¡¡Hola mundo !!!" produciría

¡¡¡Hola Mundo!!!
 ^

Código de máquina IA-32, 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 una función (usando la fastcallconvención de MS ) que actualiza la cadena en el lugar:

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

Código de montaje:

    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;

Utiliza datos de WORDtamaño (16 bits) en algunos lugares. Esto tiene una penalización (prefijo de 1 byte) en el código de 32 bits, pero de todos modos hace que el código sea más pequeño: ¡usar datos de 32 bits colocaría dos bytes cero en el código!

Al final, escribe 4 bytes ( eax) en lugar de 2 bytes ( ax): el código es más pequeño de esa manera y 2 bytes adicionales de basura van después de la terminación de la cadena, por lo que nadie los nota.

Uso:

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

Esta solución ya no funciona, ya que la confirmación después de la que he vinculado cuando el nombre del idioma cambió pa arity 1. Hay varias otras formas de lograr una puntuación similar en Pyth que todavía funcionan hoy en día, como zp+*dQ\^.

Si la cadena necesita comillas, agregar val principio del código funciona. Si tiene que estar separado por comas, sube a 10 bytes:

eQp\^*dthQ

T-SQL, 90

Si bien es una pregunta bastante simple, siempre es interesante probarlos en idiomas que realmente no tienden a admitirlos bien o jugar bien al golf.

Esta respuesta está casi garantizada como la más larga.

Esto crea una función de tabla en línea para SQL Server que toma @n y @ como parámetros y devuelve los resultados como una columna. El retorno de carro es significativo, de lo contrario necesitaría usar char (13).

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

Se usa de la siguiente manera

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)

Y vuelve

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

Esto utiliza dos niveles de formato de cadena.

Y aquí hay una solución de 25 bytes parcialmente robada de la respuesta de feersum (con el orden de los argumentos invertido):

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

Bash, 27

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

Salida

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

Python, 29

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

Concatena la cadena, una nueva línea, n-1espacios y a ^.

sed, 16

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

Esto es algo así como un caso de prueba de esta meta respuesta . Específicamente, estoy requiriendo que el número N se ingrese en unario. Por ejemplo, para el cursor en la posición 2, la entrada para N sería 11. Además, no se especifica estrictamente qué orden deben ser S y N , por lo que aquí S va primero, seguido de N unario en una nueva línea, todo a través de STDIN.

Salida:

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

JavaScript (ES6): 63 62 56 52 32 bytes

Gracias a nderscore por reducir en gran medida el tamaño del código.

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

Versión que funciona en más navegadores (47 bytes):

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

CJam, 9 bytes

q~N@(S*'^

Pruébalo en línea.

Cómo funciona

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

Aquí hay una forma más divertida de hacerlo en 29:

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

Ejemplo de uso:

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

TI-BASIC, 10 (?) Bytes

Disp Ans
Output(3,N,"^

La entrada se da en la variable N, como se hace en la pregunta, pero no se puede usar la letra var S como una cadena. En lugar de eso, se toma la entrada de la cadena de Ans, por lo que para ejecutar el ejemplo en el PO: 2->N:"Lorem ipsum, dollar sit amet.":prgm<program name>.

Sin embargo, soy consciente de que eso probablemente no cuenta, ya que cada segmento delimitado por dos puntos es técnicamente una declaración separada; aquí hay un programa de 46 bytes que toma la entrada como N "S"( 2 "Lorem ipsum, dollar sit amet.")

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)),"^

Ambos suponen que la pantalla se ha borrado antes de ejecutarse.

dc, 19

?pr256r^255/32*62+P

La entrada es de STDIN. dclas cadenas son definiciones de macro y están contenidas en [ ]. La cadena de espacios se genera calculando el número que cuando se expresa como un flujo base de 256 bytes proporciona la cadena que necesitamos. El calculo es ((n ^ 256) / 255) * 32). Esto proporciona nespacios (carácter ASCII 32), pero necesitamos n-1seguirlos ^, por lo que simplemente agregamos 62 a la última base de 256 dígitos.

Salida

$ 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("^");}

Muy claro. Versión sin golf:

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
}

Probarlo aquí
Gracias a @anatolyg para el ahorro de 10 bytes!

C # 55

Una función, concepto similar a mi respuesta C, pero esta vez el retorno es más corto que el resultado.

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

SAS, 35 bytes

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

Ese es el equivalente SAS de una función desnuda; agregar el paso de datos para llamarlo (equivalente a la función principal de C para llamarlo) sería un poco más (9 bytes más - Ty Alex), pero creo que eso no es necesario para este propósito. Cómo se llamaría:

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

Hay una implementación de solo macro, pero es mucho más larga, incluso si le permite dar una advertencia sobre parámetros no válidos en n = 1.

Si pudiéramos usar parámetros predefinidos, SAS sería bastante corto comparativamente en este caso, lo cual es una rareza para un lenguaje que definitivamente no pretende ser corto.

Si se permite que un conjunto de datos sea la fuente de entrada, que es la forma en que 'lo haría' en SAS (o por% sentencias let), pero probablemente no está permitido, esto es aún más corto ( 27 bytes , que en realidad podría ser 25 si garantizó que el conjunto de datos se construyó inmediatamente antes de ejecutar esto [como podría usar set;]]:

(conjunto de datos preexistente)

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

(código real)

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

Matlab / Octave, 41

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

Esta es una función anónima que devuelve la cadena. Esto produce una advertencia, que se puede suprimir llamando previamente warning off.

K, 21 bytes

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

Ejemplo:

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.
 ^  

Explicación ( xes el número, yes la cadena):

{                   }   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

Como una función sin nombre que sale a STDOUT. Gracias a @Flounderer por la mejora.

usa strwrap ahora para identificar el cursor a n-1. cat usa un separador de \ n en lugar de una cadena vacía.

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

Prueba de funcionamiento

> 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+'^')

Probarlo aquí
Gracias a @Dennis para el ahorro de 2 bytes!

Julia, 27 bytes

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

Esto crea una función sin nombre que acepta un entero y una cadena como entrada y devuelve una cadena. Para llamarlo, dale un nombre, por ejemplo f=(n,s)->....

Todo lo que sucede aquí es que estamos agregando una nueva línea, n-1espacios y el cursor. La concatenación de cadenas se realiza utilizando *y la repetición de cadenas con ^.

Sin golf:

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

Ejemplo:

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],'^');

Llámalo desde la línea de comando:

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

Matlab, 25

Este es extremadamente descarado. Aparentemente muestra impresiones de caracteres no imprimibles como espacios. El siguiente código define una función llamada ans, que cumple con las especificaciones.

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

llamando a esta función así:

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

da la salida:

ans =

Lorem ipsum, dollar sit amet.
 ^

Siempre me desagrada la ans =parte de las respuestas de Matlab. Si esto es un problema, necesito agregar 6 bytes ... pero siempre lo he visto así en las respuestas de Matlab. Tenga en cuenta que la ejecución de este código sobrescribe la variable ans, por lo que debe redefinir la función si desea usarla por segunda vez.

Mi primer tiro al codegolf

Java, 133 65

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

Estoy seguro de que se puede reducir aún más.

Código antiguo

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 decepcionante que Swift no tiene operador *en Arrayo String.

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

SpecBAS - 34

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

Apostrophe en PRINTfuerza una nueva línea, luego solo tiene que mover el cursor para corregir la posición.

GolfScript 11

n@~(' '*'^'

Prueba aquí .

JavaScript: 52 bytes

Aquí está el mío, es bastante simple.

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

Uso:

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

Any string at all
      ^

Apunta al séptimo personaje.

Perl 5, 31

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