Giriş

Java gibi bazı dillerin hata çıktılarında , programcıya hatanın tam olarak nerede yanlış gittiği hakkında bir fikir vermek için bir işaretçi gösterilir.

Bu örneği Ideone'da ele alalım:

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

Şapka, geçersiz kodun nerede olduğunu gösterir.

Meydan okuma

Buradaki zorluk ise: Verilen sayı N ve dize S , üzerinde bir işaretçi yerleştirmek N içinde inci karakter S .

Örnekler

Giriş :2, "Lorem ipsum, dollar sit amet."

Çıktı :

Lorem ipsum, dollar sit amet.
 ^

kurallar

• Giriş STDIN veya fonksiyon parametreleri ile alınır
• Çıktı konsola yazdırılır veya returned
• Çıktıda yeni satırları, boşlukları vb. İzlemeye izin verilir
• İşaretçi karakter olmalıdır bir olmak ^ şapka ve yeni bir satırda olmalıdır.
• Bu kod golf, bu yüzden en kısa cevap kazanır. İyi şanslar!

C 33

Sadece bir fonksiyona izin verilirse, o zaman bile c rekabet edebilir.

(Kayıt için, 2 byte @ Cool Guy'a thx kaydetti. Mt thx yorum beklenmedik bir şekilde buharlaştırıldı.)

1 karakter daha kaydedildi thx @Mig

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

Brainf * ck - 133 bayt

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

Girdiyi [0-9]{2}.*örneğin "02 Merhaba dünya !!!" olarak bekliyor. üretmek

Selam Dünya!!!
 ^

IA-32 makine kodu, 24 bayt

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

fastcallDizeyi yerinde güncelleyen bir işlevdir (MS kurallarını kullanarak ):

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

Montaj kodu:

    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;

WORDBirkaç yerde -boyutlu (16 bit) veri kullanır . Bu, 32 bit kodunda bir ceza (1 bayt öneki) içerir, ancak kodu yine de daha küçük yapar - 32 bit veri kullanmak iki sıfır baytı koda koyar!

Sonunda, 2 bayt ( eax) yerine 4 bayt ( ) yazar ax- kod bu şekilde daha küçüktür ve dize sonlandırıldıktan sonra 2 fazla önemsiz bayt gider, bu nedenle kimse fark etmez.

Kullanımı:

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

Bu çözüm artık işe pyaramıyor , çünkü dil adıyla bağlantı kurduğumdan sonraki taahhüdün ariteyi değiştirmesi gerekiyordu. Pyth'ta bugün hala çalışan benzer bir skor elde etmenin başka yolları da var zp+*dQ\^.

Dize tırnak gerekiyorsa v, kodun başına ekleme çalışır. Virgülle ayrılması gerekiyorsa, 10 bayta kadar çıkar:

eQp\^*dthQ

T-SQL, 90

Oldukça basit bir soru olsa da, bunları gerçekten iyi destekleme eğiliminde olmayan ya da bu konuda iyi golf oynamayan dillerde denemek her zaman ilginçtir.

Bu cevabın neredeyse en uzun olması garantidir.

Bu, @n ve @ parametrelerini alan ve sonuçları sütun olarak döndüren SQL Server için satır içi tablo işlevi oluşturur. Satır başı önemlidir, aksi halde char (13) kullanmam gerekir.

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

Aşağıdaki şekilde kullanılı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)

Ve döner

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

Bu, iki dize formatı seviyesi kullanır.

Ve işte, kısmen feersum'un cevabından çalınan 25 baytlık bir çözüm (argüman sırası tersine çevrildiğinde):

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

Bash, 27

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

Çıktı

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

Python, 29

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

Dize, yeni satır, n-1boşluk ve a birleştirir ^.

sed, 16

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

Bu, bu meta cevabının bir test durumudur . Özellikle, N sayısının unary olarak girilmesini talep ediyorum . Örneğin, pozisyon 2'deki şapka için, N'nin girişi olacaktır 11. Ayrıca hangi S ve N sırasının olması gerektiği de tam olarak belirtilmemiştir , bu yüzden burada S önce gelir, ardından STDIN aracılığıyla yeni bir satırda unary N izlenir .

Çıktı:

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

JavaScript (ES6): 63 62 56 52 32 bayt

Kod boyutunu büyük ölçüde düşürdüğü için nderscore'a teşekkürler.

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

Daha fazla tarayıcıda çalışan sürüm (47 bayt):

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

CJam, 9 bayt

q~N@(S*'^

Çevrimiçi deneyin.

Nasıl çalışır

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

İşte 29'da yapmanın daha eğlenceli bir yolu:

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

Örnek kullanım:

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

TI-BASIC, 10 (?) Bayt

Disp Ans
Output(3,N,"^

Giriş, N değişkeninde, soru sorulduğunda verilir, ancak var S harfini bir dize olarak kullanamazsınız. Bunun yerine, o kadar OP örnek çalıştırmak için, Ans dize girdi alır: 2->N:"Lorem ipsum, dollar sit amet.":prgm<program name>.

Her kolon sınırlı bölüm teknik olarak ayrı bir ifade olduğundan, muhtemelen sayılmadığını biliyorum; işte ( ) olarak girdi alan 46 baytlık bir programN "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)),"^

Bunların her ikisi de, ekranın çalıştırılmadan önce temizlendiğini varsayar.

dc, 19

?pr256r^255/32*62+P

Giriş STDIN'den. dcdizeler makro tanımlarıdır ve içinde bulunurlar [ ]. Boşluk dizisi, bir baz 256 bayt akışı olarak ifade edildiğinde ihtiyaç duyduğumuz dizeye verilen sayı hesaplanarak üretilir. Hesaplama ((n ^ 256) / 255) * 32). Bu verir n(ASCII karakter 32) boşluk, ama biz gerek n-1izledi ^biz sadece son taban 256 haneye 62 eklemek, böylece.

Çıktı

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

C, 59 57 47 bayt

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

Oldukça basit. Ungolfed versiyonu:

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
}

Burada test edin 10 byte tasarruf
için @anatolyg sayesinde !

C # 55

Bir fonksiyon, benim C cevabına benzer bir kavram, fakat bu sefer dönüş, çıktıdan daha kısa.

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

SAS, 35 bayt

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

Bu, çıplak bir işlevin SAS eşdeğeridir; onu çağırmak için veri basamağını eklemek (onu aramak için C ana işlevine eşdeğer) biraz daha fazla olurdu (9 bayt daha - Ty Alex), ancak bunun bu amaç için gerekli olmadığını düşünüyorum. Nasıl denirdi:

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

Yalnızca makro uygulaması vardır, ancak n = 1'de geçersiz parametrelerle ilgili bir uyarı vermesine izin verseniz bile, çok daha uzundur.

Önceden tanımlanmış parametreleri kullanabilseydik, SAS nispeten kısa olurdu, bu da kesinlikle kısa olması amaçlanmayan bir dil için nadirdi.

Bir veri kümesinin girdi kaynağı olmasına izin verilirse, SAS'ta 'nasıl yapacağınız' (veya% let ifadesiyle) ancak büyük olasılıkla izin verilmezse, bu daha kısadır ( 27 bayt , aslında 25 olabilir Veri setini çalıştırmadan hemen önce oluşturulduğunu garanti ettiyseniz [o zaman kullanabileceğiniz gibi set;]):

(önceden var olan veri kümesi)

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

(gerçek kod)

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

Matlab / Octave, 41

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

Bu, dizeyi döndüren anonim bir işlevdir. Bu daha önce arayarak bastırabileceğiniz bir uyarı verir warning off.

K, 21 bayt

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

Örnek:

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

Açıklama ( xsayı, ydizedir):

{                   }   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 çıkışına atanan adsız bir işlev olarak. İyileştirme için @ Flounderer'a teşekkürler.

şimdiki işareti n-1 olarak tanımlamak için strwrap komutunu kullanır. cat, boş dize yerine \ n ayırıcısını kullanır.

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

Test sürüşü

> 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 bayt

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

# OR 

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

Burada test edin 2 byte tasarruf
için @Dennis teşekkürler !

Julia, 27 bayt

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

Bu, bir tamsayı ve dizgiyi girdi olarak kabul eden ve bir dize döndüren adsız bir işlev oluşturur. Aramak için bir isim verin, örneğin f=(n,s)->....

Burada olan tek şey, yeni bir satır, n-1boşluk ve şapka ekliyoruz. Dize bitiştirme *ve ile dize tekrarı kullanılarak gerçekleştirilir ^.

Ungolfed:

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

Örnek:

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

Komut satırından arayın:

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

Matlab, 25

Bu son derece arsız. Görünen o ki, yazdırılamayan karakterleri boşluk olarak yazdırır. Aşağıdaki kod ans, özellikleri karşılayan adlı bir işlevi tanımlar .

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

öyleyse bu işlevi şu şekilde çağırmak:

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

çıktı verir:

ans =

Lorem ipsum, dollar sit amet.
 ^

Her zaman ans =Matlab cevaplarındaki kısmı beğenmedim . Eğer bu bir problemse, 6 byte eklemeliyim ... ama Matlab cevaplarında hep böyle gördüm. Bu kodu çalıştırmanın değişkenin üzerine yazıldığını unutmayın, bu ansnedenle ikinci kez kullanmak istiyorsanız işlevi yeniden tanımlamanız gerekir!

Codegolf'teki ilk atışım

Java, 133 65

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

Eminim daha da azaltılabilir.

Eski kod

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

Swift'in veya *üzerinde operatörü olmaması hayal kırıklığı yaratıyor .ArrayString

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

SpecBAS - 34

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

Kesme işareti PRINTyeni bir çizgiyi zorlar, ardından imleci doğru konuma getirmek için hareket ettirmeniz yeterlidir.

GolfScript 11

n@~(' '*'^'

Burada test et .

JavaScript - 52 bayt

İşte benim, oldukça basit.

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

Kullanımı:

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

Any string at all
      ^

Yedinci karaktere işaret eder.

Perl 5, 31

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