- プログラミングのお題スレ Part5
68 ：デフォルトの名無しさん[sage]：2014/09/24(水) 11:19:48.91 ID:E6n9D2xU - >>54 Squeak Smalltalk
| xigxag |
xigxag := [:w :h |
0 to: h-1 do: [:y |
0 to: w-1 do: [:x |
Transcript nextPut: ('!-' at: ((x+y \\ (h-1)) * (x-y \\ (h-1))) sign + 1)
]. Transcript cr.
]. Transcript cr; endEntry
].
Transcript open.
xigxag value: 11 value: 5.
xigxag value: 16 value: 6.
|
|