Введение

В выходных данных об ошибках некоторых языков, таких как Java, показан указатель, чтобы дать программисту представление о том, где именно произошла ошибка.

Возьмите этот пример на Ideone:

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

Обратите внимание, каретка показывает, где находится неверный код?

Вызов

Ваша задача состоит в : заданное число N и строка S , поместите указатель на N - й символ в S .

Примеры

Вход :2, "Lorem ipsum, dollar sit amet."

Выход :

Lorem ipsum, dollar sit amet.
 ^

правила

• Вход получен через STDIN или функциональные параметры
• Вывод выводится на консоль или returnредактируется
• Завершающие новые строки, пробелы и т. Д. Допускаются в выводе
• Символ указателя должен быть символом ^ и должен находиться на новой строке.
• Это код гольф, поэтому самый короткий ответ выигрывает. Удачи!

С 33

Если разрешена только функция, то даже c может конкурировать.

(Для записи, 2 байта были сохранены благодаря @Cool Guy. Комментарий был неожиданно испарен.)

Еще 1 символ спасен thx @Mig

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

Brainf * ck - 133 байта

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

Ожидается ввод, [0-9]{2}.*например, "02Hello world !!!" будет производить

Привет, мир!!!
 ^

Машинный код IA-32, 24 байта

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

Это функция (с использованием fastcallсоглашения MS ), которая обновляет строку на месте:

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

Код сборки:

    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;

Он использует WORDразмерные (16-битные) данные в нескольких местах. Это имеет штраф (1-байтовый префикс) в 32-битном коде, но в любом случае делает код меньше - использование 32-битных данных приведет к добавлению двух нулевых байтов в код!

В конце он записывает 4 байта ( eax) вместо 2 байтов ( ax) - таким образом, код становится меньше, и 2 лишних байта мусора идут после завершения строки, поэтому никто их не замечает.

Использование:

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

Пиф , 8

zp\^*tQd

Это решение больше не работает, так как коммит после того, с которым я связался в качестве имени языка, изменился pна arity 1. Есть несколько других способов достижения того же результата в Pyth, которые до сих пор работают, например zp+*dQ\^.

Если строка нуждается в кавычках, добавление vв начало кода работает. Если он должен быть разделен запятыми, он занимает до 10 байтов:

eQp\^*dthQ

T-SQL, 90

Хотя это довольно простой вопрос, всегда интересно пробовать их на языках, которые на самом деле не склонны поддерживать их или играть в гольф в этом отношении.

Этот ответ почти гарантированно будет самым длинным.

Это создает встроенную табличную функцию для SQL Server, которая принимает @n и @ в качестве параметров и возвращает результаты в виде столбца. Возврат каретки значителен, иначе мне нужно было бы использовать char (13).

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

Используется следующим образом

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)

И возвращает

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

Это использует два уровня форматирования строки.

И вот 25-байтовое решение, частично украденное из ответа feersum (с обратным порядком аргументов):

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

Баш, 27

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

Выход

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

Python, 29

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

Объединяет строку, символ новой строки, n-1пробелы и a ^.

Сед, 16

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

Это что-то вроде тестового примера этого мета-ответа . В частности, я требую, чтобы число N вводилось в одинарном формате. Например, для каретки в положении 2 вход для N будет 11. Также строго не указано, какой порядок должен быть S и N , поэтому здесь S идет первым, за которым следует унарный N в новой строке через STDIN.

Выход:

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

JavaScript (ES6): 63 62 56 52 32 байта

Спасибо nderscore за значительное уменьшение размера кода.

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

Версия, которая работает в нескольких браузерах (47 байт):

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

CJam, 9 байт

q~N@(S*'^

Попробуйте онлайн.

Как это устроено

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

Вот более забавный способ сделать это в 29:

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

Пример использования:

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

TI-BASIC, 10 (?) Байтов

Disp Ans
Output(3,N,"^

Вводится в переменной N, как задает вопрос, но вы не можете использовать букву var S в качестве строки. Вместо этого, он принимает строку ввода от Ans, так , чтобы запустить пример в OP: 2->N:"Lorem ipsum, dollar sit amet.":prgm<program name>.

Я знаю, что это, вероятно, не считается, поскольку каждый разделенный двоеточиями сегмент технически является отдельным утверждением; вот 46-байтовая программа, которая принимает входные данные как 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)),"^

Оба из них предполагают, что экран был очищен перед запуском.

дк, 19

?pr256r^255/32*62+P

Ввод из STDIN. dcстроки являются определениями макросов и содержатся в [ ]. Строка пробелов генерируется путем вычисления числа, которое при выражении в виде 256-байтового потока дает нам нужную строку. Расчет есть ((n ^ 256) / 255) * 32). Это дает nпробелы (символ 32 ASCII), но нам нужно n-1следовать ^, поэтому мы просто добавляем 62 к последнему основному 256 разряду.

Выход

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

C 59 57 47 байтов

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

Довольно просто. Безголовая версия:

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
}

Проверьте это здесь.
Спасибо @anatolyg за сохранение 10 байтов!

C # 55

Функция, концепция похожа на мой ответ C, но на этот раз возврат короче, чем вывод.

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

SAS, 35 байт

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

Это SAS-эквивалент голой функции; добавить шаг данных для его вызова (эквивалент функции C для вызова) будет немного больше (еще 9 байтов - Ty Alex), но я думаю, что для этого нет необходимости. Как это будет называться:

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

Существует реализация только для макросов, но она намного длиннее, даже если вы разрешите ей выдавать предупреждение о недопустимых параметрах при n = 1.

Если бы мы могли использовать предопределенные параметры, SAS был бы довольно коротким по сравнению с этим, что является редкостью для языка, который определенно не предназначен быть коротким.

Если набор данных разрешено использовать в качестве источника входных данных, как вы бы это «делали» в SAS (или с помощью инструкций% let), но, вероятно, это не разрешено, это еще короче ( 27 байтов , что на самом деле может быть 25 если вы гарантировали, что набор данных был создан непосредственно перед запуском этого [как вы могли бы просто использовать set;]):

(существующий набор данных)

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

(актуальный код)

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

Матлаб / Октава, 41

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

Это анонимная функция, которая возвращает строку. Это создает предупреждение, которое может быть подавлено предыдущим вызовом warning off.

К, 21 байт

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

Пример:

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

Пояснение ( xэто число, yэто строка):

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

Р, 49 48 46

Как безымянная функция, которая выводит на STDOUT. Спасибо @Flounderer за улучшение.

теперь использует strwrap, чтобы идентифицировать каретку для n-1. cat использует разделитель \ n, а не пустую строку.

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

Тестовый забег

> 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 байт

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

# OR 

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

Проверьте это здесь.
Спасибо @Dennis за сохранение 2 байтов!

Юлия, 27 байт

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

Это создает безымянную функцию, которая принимает целое число и строку в качестве входных данных и возвращает строку. Чтобы назвать его, дайте ему имя, например f=(n,s)->....

Все, что здесь происходит, - это добавление новой строки, n-1пробелов и каретки. Конкатенация строк выполняется с использованием *и повторения строк с ^.

Ungolfed:

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

Пример:

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

Вызовите это из командной строки:

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

Матлаб, 25

Этот очень нахальный. Видимо отображает распечатки непечатных символов в виде пробелов. Следующий код определяет функцию с именем ans, которая соответствует спецификациям.

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

так вызывая эту функцию так:

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

дает вывод:

ans =

Lorem ipsum, dollar sit amet.
 ^

Мне всегда не нравилась ans =роль в ответах Matlab. Если это проблема, мне нужно добавить 6 байтов ... но я всегда видел это в ответах Matlab. Обратите внимание, что выполнение этого кода перезаписывает переменную ans, поэтому вам нужно переопределить функцию, если вы хотите использовать ее во второй раз!

Мой первый выстрел в Codegolf

Ява, 133 65

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

Я уверен, что это может быть уменьшено еще больше.

Старый код

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

Свифт, 41

Вызывает разочарование , что Swift не имеет оператора *на Arrayили String.

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

СпецБАС - 34

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

Апостроф PRINTзаставляет новую строку, тогда просто нужно переместить курсор в правильное положение.

GolfScript 11

n@~(' '*'^'

Проверьте здесь .

JavaScript - 52 байта

Вот мой, это довольно просто.

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

Использование:

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

Any string at all
      ^

Это указывает на седьмой символ.

Perl 5, 31

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