11/12/19 21:59:08.53
>>59
こんなんでどうだろ。
rotatemaxright[lst_] := Which[
Max[lst] == Last[lst], lst,
True, rotatemaxright[RotateRight[lst]]];
Forでなくて再帰使ってるけど。3行で。
11/12/19 21:59:08.53
>>59
こんなんでどうだろ。
rotatemaxright[lst_] := Which[
Max[lst] == Last[lst], lst,
True, rotatemaxright[RotateRight[lst]]];
Forでなくて再帰使ってるけど。3行で。