ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

プログラミングのお題スレ Part13

PC,ｽﾏﾎ,PHSは ULA べっかんこ 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>750 > >>746 Squeak Smalltalk > > | fn | > > fn := [:str | > | map range sign goal position next atEnd | > map := str lines collect: [:line | line subStrings collect: #asInteger]. > range := 1@1 extent: map first size @ map size. > sign := (0 asPoint fourNeighbors with: #(→ ↓ ← ↑) collect: #->) as: Dictionary. > goal := #★. > position := 1@1. next := 2. atEnd := false. > [atEnd] whileFalse: [ > | found | > found := position fourNeighbors detect: [:neighPos | > (range containsPoint: neighPos) and: [((map at: neighPos y) at: neighPos x) = next] > ] ifNone: [atEnd := true. Float nan]. > (map at: position y) at: position x put: (sign at: found - position ifAbsent: goal). > position := found. next := next + 1. > ]. > (map collect: #join) asStringWithCr > ]. > > fn value: '1 4 5 6 > 2 3 8 7 > 15 14 9 10 > 16 13 12 11' > > "=> > '↓→→↓ > →↑↓← > ↓←→↓ > ★↑←←' "
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.022s