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

[350 デフォルトの名無しさん 2018/11/11(日) 12:53:19.00 ID:ILkwXRqJ]

>>336 Squeak/Pharo Smalltalk

| fn |
fn := [:N |
(Array new: 3 withAll: N) reduce: [:mex :n |
mex \\ 100 = 0 ifTrue: [0] ifFalse: [n raisedTo: mex modulo: 100]
]
].

#(1 2 3 4 11 13 100 777) collect: fn

"=> #(1 16 87 96 11 53 0 97) "