소개

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에 저장했습니다. Mx thx 주석이 예기치 않게 증발됩니다.)

1 개 이상의 char 저장 thx @Mig

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

Brainf * ck-133 바이트

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

[0-9]{2}.*"02Hello world !!!" 와 같은 입력이 필요합니다. 생산할 것이다

안녕하세요 세상 !!!
 ^

IA-32 기계 코드, 24 바이트

16 진 덤프 :

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몇 군데에서 2N 크기 (16 비트)의 데이터를. 이것은 32 비트 코드에서 페널티 (1 바이트 접두어)를 갖지만 어쨌든 코드를 작게 만듭니다 .32 비트 데이터를 사용하면 코드에 2 바이트가 0이됩니다!

결국 eax2 바이트 ( ) 대신 4 바이트 ( )를 씁니다 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

상당히 간단한 질문이지만, 실제로 잘 지원하거나 골프를 잘하지 못하는 언어로 시도해 보는 것은 항상 흥미 롭습니다.

이 답변은 거의 가장 긴 답변입니다.

@n 및 @를 매개 변수로 사용하고 결과를 열로 반환하는 SQL Server에 대한 인라인 테이블 함수를 만듭니다. 캐리지 리턴은 중요합니다. 그렇지 않으면 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
    ^

파이썬, 27

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

여기에는 두 가지 수준의 문자열 형식이 사용됩니다.

그리고 여기에 feersum의 대답에서 부분적으로 도난 된 25 바이트 솔루션이 있습니다 (인수 순서가 반대로 됨).

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

파이썬, 29

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

문자열, 개행 문자, n-1공백 및 a를 연결합니다 ^.

sed, 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.

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

두 가지 모두 실행하기 전에 화면이 지워 졌다고 가정합니다.

dc, 19

?pr256r^255/32*62+P

STDIN에서 입력합니다. dc문자열은 매크로 정의이며에 포함되어 [ ]있습니다. 공백 문자열은 기본 256 바이트 스트림으로 표현 될 때 필요한 문자열을 제공하는 숫자를 계산하여 생성됩니다. 계산은 ((n ^ 256) / 255) * 32)입니다. 이것은 n공백 (ASCII 문자 32)을 제공하지만 n-1뒤에옵니다 ^. 따라서 마지막 기본 256 자리에 62를 추가하기 만하면됩니다.

산출

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

여기에서 테스트 하십시오 10 바이트를 절약 한 @anatolyg 에게
감사드립니다 !

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;

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

R, 49 48 46

STDOUT으로 출력되는 명명되지 않은 함수로. 개선을위한 @Flounderer에게 감사합니다.

현재 캐럿을 사용하여 캐럿을 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;"^"

아포스트로피 (Apostrophe) PRINT는 새로운 행 을 강제 한 다음 커서를 올바른 위치로 이동하면됩니다.

GolfScript 11

n@~(' '*'^'

여기서 테스트 하십시오 .

자바 스크립트-52 바이트

여기 내 것이 있습니다. 아주 간단합니다.

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

용법:

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

Any string at all
      ^

일곱 번째 문자를 가리 킵니다.

펄 5, 31

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