介绍

在某些语言（例如Java）的错误输出中，显示了一个指针，使程序员可以准确了解错误的出处。

就拿这个例子上Ideone：

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

注意插入符号显示无效代码在哪里？

挑战

您的挑战是：给定数字N和字符串S，将指针放在S中的第N个字符上。

例子

输入：2, "Lorem ipsum, dollar sit amet."

输出：

Lorem ipsum, dollar sit amet.
 ^

规则

• 通过STDIN或功能参数接收输入
• 输出输出到控制台或returned
• 输出中允许尾随新行，空格等
• 指针字符必须是^插入号，并且必须在换行符上。
• 这是代码高尔夫，所以最短的答案会获胜。祝好运！

C 33

如果只允许一个函数，那么c也可以竞争。

（为了便于记录，将2个字节保存到@Cool Guy中。此注释被意外删除。）

还有1个字符保存了@Mig

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

Brainf * ck-133字节

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

[0-9]{2}.*期望输入例如“ 02Hello world !!!”。会产生

你好，世界！！！
 ^

IA-32机器代码，24个字节

十六进制转储：

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

这是一个功能（使用MS fastcall约定），可以就地更新字符串：

__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位的数据。这在32位代码中有一个代价（前缀为1字节），但无论如何都会使代码变小-使用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为arity1 zp+*dQ\^。在Pyth中获得类似分数的其他方法仍然有效，例如。

如果字符串需要用引号引起来，则可以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

Bash，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空格和^。

sed，16岁

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

这是该元答案的一个测试用例。具体来说，我要求数字N以一元形式输入。例如，对于在2位插入符，对于输入Ñ会11。同样，也没有严格规定S和N应该是哪个顺序，因此这里首先通过STDIN ，然后是S，然后是新行中的一元N。

输出：

$ { 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空格（ASCII字符32），但是我们需要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 main函数）会多一点（多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;

Matlab /八度，41

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

这是一个返回字符串的匿名函数。这会产生警告，可以通过预先调用来消除警告warning off。

K，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空格和插入号。字符串连接使用进行*，字符串重复使用进行^。

取消高尔夫：

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

Matlab，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+" "})+"^"}

SpecBAS-34

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

撇号会PRINT强制换行，然后只需将光标移至正确位置即可。

高尔夫脚本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)."^"}