छोटी बात
एक पुस्तकालय अभी तक कई स्मालटाक बोलियों (विजुअलवर्क्स, जेमस्टोन स्क्वीक / फारो, ...) के लिए पोर्ट किया गया है, जिसका नाम Xtreams है जो इस कार्य को आसान से अधिक बनाता है।
FileStream के रूप में सरल रूप में हो सकता है 'foo' asFilename readingऔर 'bar' asFilename writingVisualWorks में उदाहरण के लिए, लेकिन बोली विशिष्ट हैं।
इस कारण से मैं इसके बजाय बोली को तटस्थ आंतरिक धाराओं के साथ एल्गोरिथ्म प्रदर्शित करता हूं।
बढ़ते क्रम में प्रत्येक बाइट कोड को संसाधित करने के लिए एक अच्छा विचार हो सकता है:
| input |
input := 'Hello world' asByteArray reading.
^((ByteArray new writing)
write: ((0 to: 255) inject: ByteArray new reading into: [:outputSoFar :code |
| nextOutput |
nextOutput := ByteArray new writing.
((input += 0; selecting: [:c | c <= code]) ending: code inclusive: true) slicing do: [:subStream |
| positionable |
positionable := subStream positioning.
nextOutput write: (outputSoFar limiting: (positionable ending: code) rest size).
nextOutput write: (positionable += 0; selecting: [:c | c = code])].
nextOutput conclusion reading]);
conclusion) asString
बेशक, यादृच्छिक क्रम में प्रक्रिया करना भी संभव है, लेकिन मुझे डर है कि यह कोड को थोड़ा कॉम्पैक्ट बनाता है:
| input output |
input := 'Hello world' asByteArray reading.
output := ByteArray new writing.
(0 to: 255) asArray shuffled do: [:code |
output += 0.
(input += 0; ending: code inclusive: true) slicing do: [:subStream |
| positionable |
positionable := subStream positioning.
output ++ (positionable += 0; rejecting: [:c | c = code]) rest size.
output write: (positionable += 0; selecting: [:c | c = code])]].
^output conclusion asString
संपादित करें
मुझे बेवकूफ, मैं log2 समाधान नहीं देखा:
| input output |
input := 'Hello world' asByteArray reading.
(output := ByteArray new writing) write: (input collecting: [:e | 0]).
output := (0 to: 7) asArray shuffled inject: output into: [:outputSoFar :bit |
(ByteArray new writing)
write:
(((input += 0; collecting: [:e | e >> bit bitAnd: 1]) interleaving: outputSoFar conclusion reading)
transforming: [ :in :out | out put: in get << bit + in get]);
yourself].
^output conclusion asString