- プログラミングのお題スレ Part5
103 ：デフォルトの名無しさん[sage]：2014/09/29(月) 10:54:40.10 ID:mrmYQHU+ - >>89 Squeak Smalltalk
| MXMN |
MXMN := [:S |
| runs MX MN |
runs := (RunArray newFrom: S) runs copyWithout: 1.
MX := runs ifEmpty: [false] ifNotEmpty: [runs max].
MN := (runs copyWithout: MX) ifEmpty: [false] ifNotEmpty: [:runs2 | runs2 max].
{MX. MN}
].
MXMN value: '110001010100'. "=> #(3 2) "
MXMN value: '111111'. "=> #(6 false) "
MXMN value: '10'. "=> #(false false) "
|