สุนัขของฉันเห่าใส่ฉัน แต่ฉันขี้เกียจเกินไปที่จะพาเขาไปเดินเล่น ฉันมีความคิด! ฉันจะให้คนที่ Code Golf ทำเพื่อฉัน!

ความท้าทายของคุณคือการจำลองการเดินสุนัข นี่คือกฎสำหรับการเดินสุนัข:

• มนุษย์ ( H) จะเริ่มต้น0,0บนระนาบพิกัด (คาร์ทีเซียน) และจะสุ่มหนึ่งช่องว่างขึ้นไปซ้ายขวาหรือลงทุก ๆ วินาที
• สุนัข ( D) จะเริ่มต้นที่ตำแหน่งเดียวกันและจะเป็นศูนย์เว้นวรรคหนึ่งสองหรือสามขึ้นไปซ้ายขวาหรือลงทุกวินาที (สุ่มแน่นอน) สุนัขสามารถคาดเดาได้น้อยลงและบางครั้งจะทำงานได้เร็วขึ้นหรือหยุดอย่างสมบูรณ์
• สุนัขจะไม่ได้รับมากกว่าจำนวนหนึ่งของหน่วยห่างจากมนุษย์ (ในระยะทางแบบยุคลิด) ซึ่งเป็นความยาวของสายจูง ( L) ตัวอย่างเช่นถ้าLเป็น6ตำแหน่งที่ถูกต้องจะเป็นH(0,0) D(4,4) (เนื่องจากระยะทางประมาณ 5.65 หน่วย) แต่ไม่ใช่H(0,0) D(5,4)(ประมาณ 6.4 หน่วย)
  • ถ้าหากสุนัขเคลื่อนไหวจะเป็นการละเมิดข้อกำหนดระยะห่างของสายจูงมันจะต้องไปให้ไกลที่สุดเท่าที่จะทำได้ในทิศทางที่กำหนดซึ่งไม่ละเมิดข้อกำหนดระยะทาง ตัวอย่างเช่นหากตำแหน่งอยู่H(0,0) D(3,4)และสุนัขถูกสุ่มเลือกที่จะย้าย 3 ช่องว่างไปทางขวามันจะไปD(4,4)เนื่องจากเป็นจุดที่ไกลที่สุดที่สามารถไปได้โดยไม่ต้องไปไกลเกิน 6 หน่วย (โปรดทราบว่าสิ่งนี้อาจส่งผลให้เกิดการเคลื่อนที่ของช่องว่าง 0 นั่นคือไม่มีการเคลื่อนไหวเลย!)
• กฎเบ็ดเตล็ด: การเคลื่อนไหวของมนุษย์ก่อน มนุษย์จะต้องไม่เกินความยาวของสายจูงขณะเคลื่อนที่ ถ้าเป็นเช่นนั้นจะต้องเลือกทิศทางอื่น "สุ่ม" หมายถึง "มีการแจกแจงแบบสม่ำเสมอและไม่มีรูปแบบ"

อินพุตจะได้รับในรูปแบบนี้ (สามารถเป็น STDIN, พารามิเตอร์ฟังก์ชัน, ไฟล์, ฯลฯ ):

"<amount of seconds the walk will last> <leash length>"

ตัวอย่างเช่น:

300 6 // a 5 minute walk with a 6 yard leash

คุณต้องให้ผลลัพธ์ในรูปแบบนี้ (สามารถเป็น STDOUT, ค่าส่งคืนของฟังก์ชัน, ไฟล์, ฯลฯ ):

H(0,0) D(0,0)
H(0,1) D(2,0)
H(1,1) D(2,1)
H(1,0) D(2,-1)
...

(จำนวนของเอาต์พุตบรรทัดจะเป็นseconds + 1เนื่องจากH(0,0) D(0,0)บรรทัดไม่นับ)

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์จะเป็นผู้ชนะ!

GolfScript 140 ตัวอักษร

~.*:L;)[0.].@{['H('1$','*') D('4$','*')'n]@@{[@~]}+[{)}{(}{\(\}{\)\}]:^%{{~2$~@-.*@@-.*+L>!},}:F~.,{rand}:R~=\[.;{.[~}^4R=+{]}+4R*]F-1=\}*;;

ตัวอย่างการเรียกใช้ (ลองออนไลน์ ):

> 10 3
H(0,0) D(0,0)
H(0,1) D(0,0)
H(0,0) D(0,2)
H(0,1) D(-1,2)
H(1,1) D(-1,2)
H(1,2) D(-1,4)
H(1,3) D(-1,5)
H(0,3) D(-1,5)
H(-1,3) D(1,5)
H(-1,4) D(1,5)
H(0,4) D(-1,5)

CoffeeScript - การเรียกใช้ฟังก์ชัน 324 +

การสาธิต (ใช้ Leash 10):

H(0,0) D(0,0)
H(0,-1) D(0,3)
H(-1,-1) D(0,3)
H(-1,-2) D(-1,3)
H(-1,-3) D(-4,3)
H(-1,-2) D(-4,4)
H(-1,-3) D(-5,4)
H(-1,-2) D(-2,4)
H(-1,-3) D(-2,5)
H(-1,-4) D(-2,5)
H(-1,-3) D(-3,5)
H(0,-3) D(-4,5)
H(-1,-3) D(-4,6)
H(-1,-4) D(-2,6)
H(-2,-4) D(-2,6)
H(-3,-4) D(-5,6)
H(-4,-4) D(-5,6)
H(-4,-3) D(-5,8)
H(-5,-3) D(-2,8)
H(-5,-2) D(-2,8)
H(-5,-3) D(-2,5)

รหัส:

w=(i)->
    [s,l]=i.split ' ';m=Math;h=[0,0];d=[0,0];r=->(4*m.random())|0
    a=->m.abs(h[0]-d[0])**2+m.abs(h[1]-d[1])**2<=l**2
    b=(x)->if x%2 then 1else-1
    for i in[0..s]
        console.log "H(#{h}) D(#{d})"
        loop
            H=h.slice();x=r();h[(x/2)|0]+=b x;break if a();h=H
        D=r();x=r();(d[(x/2)|0]+=b x;d[(x/2)|0]-=b x if!a())while D-->0

รหัสยาว:

human = [ 0, 0 ]
doge = [ 0, 0 ]
randomDirection = -> [ 'u', 'd', 'l', 'r' ][(4*Math.random())|0]
allowed = -> Math.abs(human[0] - doge[0]) ** 2 + Math.abs(human[1] - doge[1]) ** 2 <= leash**2
leash = 0
walk = (input) ->
    [ seconds, leash ] = input.split ' '
    for i in [0..seconds]
        console.log "H(#{human}) D(#{doge}) #{Math.sqrt Math.abs(human[0] - doge[0]) ** 2 + Math.abs(human[1] - doge[1]) ** 2}"
        valid = no
        loop
            oldHuman = human.slice()
            switch randomDirection()
                when 'u'
                    human[0]--
                when 'd'
                    human[0]++
                when 'l'
                    human[1]--
                when 'r'
                    human[1]++

            if allowed()
                break
            else
                human = oldHuman

        dogeDistance = (Math.random() * 4)|0
        switch randomDirection()
            when 'u'
                while dogeDistance-- > 0
                    doge[0]--
                    doge[0]++ if !allowed() 
            when 'd'
                while dogeDistance-- > 0
                    doge[0]++
                    doge[0]-- if !allowed() 
            when 'l'
                while dogeDistance-- > 0
                    doge[1]--
                    doge[1]++ if !allowed() 
            when 'r'
                while dogeDistance-- > 0
                    doge[1]++
                    doge[1]-- if !allowed() 
walk "10 2"

ทับทิม, 189 177

ฉันอาจจะลดลงเล็กน้อย jฉันไม่ได้รัก

h=d=0;e,l=$*
def j;[1,-1,?i,'-i'].sample.to_c end
0.upto(e.to_i){puts'H(%d,%d) D(%d,%d)'%(h.rect+d.rect)
1 while((g=h+j)-d).abs>l.to_i
h,s=g,j
3.times{d+=s if(d+s-h).abs<=l.to_i}}

Ungolfed:

h=d=0 # use complex numbers since it has distance built in
time,leash=$*

def randomDirection
  [1,-1,'i','-i'].sample.to_c 
end

0.upto(time.to_i) { # (1 + time) times
  puts"H(%d,%d) D(%d,%d)"%(h.rect+d.rect) # that's [h.real, h.imag, d.real, d.imag]

  # find a newH that doesn't violate the leash
  newH = h + randomDirection
  while((g-d).abs > leash.to_i) 
    newH = h + randomDirection
  end

  h = newH

  newD = randomDirection
  3.times{
    # keep adding newD until you hit the leash
    d += newD if(d + newD - h).abs <= leash.to_i
  }
}

Mathematica 285

แข็งแรงเล่นกอล์ฟ

r=RandomChoice;k=False;
s:=r[{{0,1},{-1,0},{1,0},{0,-1}}]
w:=r[{0,1,2,3,4}]
f[{-1,___}]:="";
f[{n_,l_,{h_,d_}}]:=
(Print["H(",h,")\t","D(",d,")"];
m[i_,u_,v_]:=EuclideanDistance[u+i,v]<l;
z=k;While[z==k,t=s;z=m[t,h,d]];
y=h+t;t=w*s;z=k;While[z==k,t=t-Sign@t;z=m[t,d,y]];
dp=d+t;f[{n-1,l,{y, dp}}])

ตัวอย่าง

f[{17,7,{{0,0},{0,0}}}]

H ({0,0}) D ({0,0})
H ({1,0}) D ({0,0})
H ({2,0}) D ({0,2})
H ( {2, -1}) D ({0, -1})
H ({1, -1}) D ({- 3, -1})
H ({1,0}) D ({- 3,1 })
H ({1,1}) D ({0,1})
H ({1,2}) D ({0,2})
H ({1,1}) D ({0,2})
H ({1,0}) D ({- 2,2})
H ({2,0}) D ({1,2})
H ({2, -1}) D ({- 2,2}} )
H ({2,0}) D ({- 2,3})
H ({2,1}) D ({- 2,0})
H ({1,1}) D ({- 2,3} })
H ({2,1}) D ({- 2,6})
H ({1,1}) D ({- 3,6})
H ({0,1}) D ({- 4, 4, 6})

UnGolfed

มีความคิดเห็นบางส่วนในข้อความด้านล่าง ฉันได้รวมงานพิมพ์ไว้ซึ่งทำให้สามารถติดตามการคำนวณได้บ้าง

step:=RandomChoice[{{0,1},{-1,0},{1,0},{0,-1}}]
dogWander:=RandomChoice[{0,1,2,3,4}]

f[{-1,___}]:="";

f[{n_,l_,{humanPos_,dogPos_}}]:=
Module[{tempStep,moveOK,hp,hp1,dp,p,test},

(* human imagines step, checks with leash, chooses another step if would choke the dog *)
moveOK[intendedStep_,pos1_,pos2_]:=EuclideanDistance[pos1+intendedStep,pos2]<l;
test=False;While[test==False,tempStep=step;test=moveOK[tempStep,humanPos,dogPos]];
hp=humanPos+tempStep;
Print["humanPos before: ", humanPos,"\t","human step: ",tempStep,"\thumanPos after: ",hp,"\tdistance from dog: ",N@EuclideanDistance[hp,dogPos]];

(*move closer to human if needed *)
tempStep=dogWander*step;
test=False;While[test==False,tempStep=tempStep-Sign[tempStep];test=moveOK[tempStep,dogPos,hp]];
dp=dogPos+tempStep;
Print["dog's intended step: ",tempStep,"\tdogPos before: ",dogPos,"\t","dog actual step: ",tempStep, "\t","dogPos after: ",dp,"\tdistance: ",N@EuclideanDistance[hp,dp],"\n"];
f[{n-1,l,{hp, dp}}]]

ตัวอย่าง

f[{17,5,{{0,0},{0,0}}}]

[ส่วนหนึ่งของผลงานพิมพ์นั้นแสดงให้เห็นว่ารหัสทำงานอย่างไร ]