API tools faq
paste
Guest User

Code golf - stuffing primes in a box

a guest
Mar 25th, 2016
332
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Smalltalk 16.01 KB | None | 0 0
raw download clone embed print report
  1. Object subclass: #Insertion
  2.     instanceVariableNames: 'point isHorizontal numberOfOverlaps accidentalPrimes'
  3.     classVariableNames: ''
  4.     poolDictionaries: ''
  5.     category: 'Amos'!
  6.  
  7. !Insertion methodsFor: 'initialization' stamp: 'AMC 3/24/2016 15:29'!
  8. initialize
  9.  
  10.     super initialize.
  11.     numberOfOverlaps := 0.
  12.     accidentalPrimes := OrderedCollection new! !
  13.  
  14.  
  15. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:55'!
  16. point: aPoint
  17.  
  18.     point := aPoint! !
  19.  
  20. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:56'!
  21. numberOfOverlaps: anInteger
  22.  
  23.     numberOfOverlaps := anInteger! !
  24.  
  25. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:29'!
  26. addAccidentalPrime: aPrime
  27.  
  28.     accidentalPrimes add: aPrime! !
  29.  
  30. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:29'!
  31. accidentalPrimes
  32.  
  33.     ^accidentalPrimes! !
  34.  
  35. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:56'!
  36. numberOfOverlaps
  37.  
  38.     ^numberOfOverlaps! !
  39.  
  40. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:55'!
  41. point
  42.  
  43.     ^point! !
  44.  
  45. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:59'!
  46. increaseOverlaps
  47.  
  48.     numberOfOverlaps := numberOfOverlaps + 1! !
  49.  
  50. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:55'!
  51. isHorizontal
  52.  
  53.     ^isHorizontal! !
  54.  
  55. !Insertion methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:55'!
  56. isHorizontal: aBoolean
  57.  
  58.     isHorizontal := aBoolean! !
  59.  
  60.  
  61. !Insertion methodsFor: 'printing' stamp: 'AMC 3/24/2016 16:19'!
  62. printOn: aStream
  63.  
  64.     aStream
  65.         nextPutAll: 'Insertion at: ';
  66.         nextPutAll: point printString;
  67.         nextPut: Character space;
  68.         nextPut: (isHorizontal ifTrue: [$>] ifFalse: [$v]);
  69.         nextPutAll: ' {';
  70.         nextPutAll: (', ' join: accidentalPrimes);
  71.         nextPut: $}! !
  72.  
  73. "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
  74.  
  75. Insertion class
  76.     instanceVariableNames: ''!
  77.  
  78. !Insertion class methodsFor: 'instance creation' stamp: 'AMC 3/24/2016 15:58'!
  79. at: aPoint isHorizontal: aBoolean
  80.  
  81.     ^self new
  82.         point: aPoint;
  83.         isHorizontal: aBoolean;
  84.         yourself! !
  85.  
  87. Object subclass: #Stuffer
  88.     instanceVariableNames: 'box width height'
  89.     classVariableNames: 'primeLoadDictionary primes'
  90.     poolDictionaries: ''
  91.     category: 'Amos'!
  92.  
  93. !Stuffer methodsFor: 'initialization' stamp: 'AMC 3/24/2016 15:48'!
  94. initializeBox
  95.  
  96.     box := Box width: (width min: 5) height: (height min: 5)! !
  97.  
  98.  
  99. !Stuffer methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:49'!
  100. height: anInteger
  101.  
  102.     height := anInteger! !
  103.  
  104. !Stuffer methodsFor: 'accessing' stamp: 'AMC 3/24/2016 16:07'!
  105. box
  106.  
  107.     ^box! !
  108.  
  109. !Stuffer methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:49'!
  110. width: anInteger
  111.  
  112.     width := anInteger! !
  113.  
  114. !Stuffer methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:48'!
  115. width
  116.  
  117.     ^width! !
  118.  
  119. !Stuffer methodsFor: 'accessing' stamp: 'AMC 3/24/2016 16:07'!
  120. box: aBox
  121.  
  122.     box := aBox! !
  123.  
  124. !Stuffer methodsFor: 'accessing' stamp: 'AMC 3/24/2016 14:49'!
  125. height
  126.  
  127.     ^height! !
  128.  
  129.  
  130. !Stuffer methodsFor: 'testing' stamp: 'AMC 3/24/2016 14:50'!
  131. canGrow
  132.  
  133.     ^width > box width or: [height > box height]! !
  134.  
  135.  
  136. !Stuffer methodsFor: 'stuffing' stamp: 'AMC 3/24/2016 13:23'!
  137. insert: aString at: aPoint horizontalIf: isHorizontal
  138.  
  139.     | point offset |
  140.     point := aPoint.
  141.     offset := isHorizontal ifTrue: [box rightOffset] ifFalse: [box downOffset].
  142.     Transcript crShow: 'Inserting ', aString, ' at ', point printString.
  143.     aString do: [:eachChar |
  144.         box at: point x at: point y put: eachChar.
  145.         point := point + offset
  146.         ].
  147.     Transcript crShow: box! !
  148.  
  149. !Stuffer methodsFor: 'stuffing' stamp: 'AMC 3/24/2016 13:46'!
  150. stuffBox
  151.  
  152.     self stuffCurrentBox.
  153.     [self canGrow] whileTrue: [
  154.         box growMatrixByOneUpTo: width @ height.
  155.         self stuffCurrentBox
  156.         ]! !
  157.  
  158. !Stuffer methodsFor: 'stuffing' stamp: 'AMC 3/24/2016 13:47'!
  159. stuffCurrentBox
  160.  
  161.     self class primes reverseDo: [:eachPrime |
  162.         | string insertion |
  163.         (box primesUsed includes: eachPrime) ifFalse: [
  164.             string := eachPrime asString.
  165.             (insertion := box bestInsertionFor: string)
  166.                 ifNotNil: [
  167.                     Transcript crShow: insertion printString, ' of ', string.
  168.                     box doInsertion: insertion of: eachPrime.
  169.                     Transcript crShow: box
  170.                     ]
  171.                 ]
  172.             ].
  173.     box updatePrimesUsed.! !
  174.  
  175. "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
  176.  
  177. Stuffer class
  178.     instanceVariableNames: ''!
  179.  
  180. !Stuffer class methodsFor: 'primes' stamp: 'AMC 3/24/2016 16:32'!
  181. primeMaxLength
  182.     "self primeMaxLength"
  183.  
  184.     ^self primes last asString size! !
  185.  
  186. !Stuffer class methodsFor: 'primes' stamp: 'AMC 3/25/2016 18:11'!
  187. primeLoadDictionary
  188.     "self primeLoadDictionary"
  189.  
  190.     primeLoadDictionary ifNil: [
  191.         | sum |
  192.         primeLoadDictionary := IdentityDictionary new.
  193.         sum := 0.
  194.         self primes do: [:eachPrime |
  195.             sum := sum + eachPrime asString size.
  196.             primeLoadDictionary at: sum put: eachPrime
  197.             ]
  198.         ].
  199.     ^primeLoadDictionary! !
  200.  
  201. !Stuffer class methodsFor: 'primes' stamp: 'AMC 3/25/2016 18:05'!
  202. maxPrime
  203.  
  204.     ^20000! !
  205.  
  206. !Stuffer class methodsFor: 'primes' stamp: 'AMC 3/24/2016 14:46'!
  207. resetPrimes
  208.     "self resetPrimes"
  209.  
  210.     primes := nil.
  211.     primeLoadDictionary := nil! !
  212.  
  213. !Stuffer class methodsFor: 'primes' stamp: 'AMC 3/24/2016 14:54'!
  214. primes
  215.     "self primes"
  216.  
  217.     primes isNil ifTrue: [
  218.         primes := (Integer primesUpTo: self maxPrime) asOrderedCollection.
  219.         primes removeAll: #(2 3 5 7)
  220.         ].
  221.     ^primes! !
  222.  
  223.  
  224. !Stuffer class methodsFor: 'instance creation' stamp: 'AMC 3/24/2016 13:09'!
  225. forBox: aBox
  226.  
  227.     ^self new
  228.         box: aBox;
  229.         yourself! !
  230.  
  231. !Stuffer class methodsFor: 'instance creation' stamp: 'AMC 3/24/2016 13:54'!
  232. forDimensions: aPoint
  233.  
  234.     ^self new
  235.         width: aPoint x;
  236.         height: aPoint y;
  237.         initializeBox;
  238.         yourself! !
  239.  
  240.  
  242. Object subclass: #Box
  243.     instanceVariableNames: 'matrix primesUsed'
  244.     classVariableNames: ''
  245.     poolDictionaries: ''
  246.     category: 'Amos'!
  247.  
  248. !Box methodsFor: 'convenience' stamp: 'AMC 3/24/2016 14:32'!
  249. rightOffset
  250.  
  251.     ^1@0! !
  252.  
  253. !Box methodsFor: 'convenience' stamp: 'AMC 3/24/2016 14:18'!
  254. width
  255.  
  256.     ^matrix numberOfColumns! !
  257.  
  258. !Box methodsFor: 'convenience' stamp: 'AMC 3/24/2016 14:20'!
  259. pointsDo: aBlock
  260.  
  261.     1 to: self height do: [:eachY |
  262.         1 to: self width do: [:eachX |
  263.             aBlock value: eachX @ eachY
  264.             ]
  265.         ]! !
  266.  
  267. !Box methodsFor: 'convenience' stamp: 'AMC 3/24/2016 14:02'!
  268. offset: isHorizontal
  269.  
  270.     ^isHorizontal
  271.         ifTrue: [self rightOffset]
  272.         ifFalse: [self downOffset]! !
  273.  
  274. !Box methodsFor: 'convenience' stamp: 'AMC 3/24/2016 13:32'!
  275. downOffset
  276.  
  277.     ^0@1! !
  278.  
  279. !Box methodsFor: 'convenience' stamp: 'AMC 3/24/2016 13:17'!
  280. height
  281.  
  282.     ^matrix numberOfRows! !
  283.  
  284.  
  285. !Box methodsFor: 'initialization' stamp: 'AMC 3/24/2016 14:33'!
  286. initialize
  287.  
  288.     super initialize.
  289.     primesUsed := OrderedCollection new! !
  290.  
  291.  
  292. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:47'!
  293. matrix
  294.  
  295.     ^matrix! !
  296.  
  297. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 16:24'!
  298. primesUsed
  299.  
  300.     ^primesUsed! !
  301.  
  302. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 13:54'!
  303. from: aPoint rightBy: aNumber
  304.  
  305.     ^(matrix atRow: aPoint y)
  306.         copyFrom: aPoint x to: (aPoint x + aNumber min: self width)! !
  307.  
  308. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 16:25'!
  309. primesUsed: somePrimes
  310.  
  311.     primesUsed := somePrimes! !
  312.  
  313. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 13:30'!
  314. at: aRowIndex at: aColumnIndex
  315.  
  316.     ^self at: aColumnIndex @ aRowIndex! !
  317.  
  318. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 13:09'!
  319. primesInColumn: aColumnIndex
  320.  
  321.     ^self class primesIn: (matrix atColumn: aColumnIndex)! !
  322.  
  323. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 13:07'!
  324. primesInRow: aRowIndex
  325.  
  326.     ^self class primesIn: (matrix atRow: aRowIndex)! !
  327.  
  328. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 16:02'!
  329. at: aRowIndex at: aColumnIndex put: aCharacter
  330.  
  331.     ^matrix at: aRowIndex at: aColumnIndex put: aCharacter! !
  332.  
  333. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 15:47'!
  334. matrix: aMatrix
  335.  
  336.     matrix := aMatrix! !
  337.  
  338. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 13:42'!
  339. at: aPoint
  340.  
  341.     ^matrix at: aPoint y at: aPoint x ifInvalid: nil! !
  342.  
  343. !Box methodsFor: 'accessing' stamp: 'AMC 3/24/2016 13:53'!
  344. from: aPoint downBy: aNumber
  345.  
  346.     ^(matrix atColumn: aPoint x)
  347.         copyFrom: aPoint y to: (aPoint y + aNumber min: self height)! !
  348.  
  349.  
  350. !Box methodsFor: 'evaluating' stamp: 'AMC 3/24/2016 17:16'!
  351. updatePrimesUsed
  352.  
  353.     Transcript crShow: primesUsed size printString, ' old primes: ', (', ' join: primesUsed).
  354.     primesUsed := OrderedCollection new.
  355.     1 to: self height do: [:each |
  356.         primesUsed addAll: (self primesInRow: each)
  357.         ].
  358.     1 to: self width do: [:each |
  359.         primesUsed addAll: (self primesInColumn: each)
  360.         ].
  361.     primesUsed asBag sortedCounts first key > 1
  362.         ifTrue: [self error: 'Damn dirty duplicates!!'].
  363.     Transcript crShow: primesUsed size printString, ' new primes: ', (', ' join: primesUsed)! !
  364.  
  365. !Box methodsFor: 'evaluating' stamp: 'AMC 3/24/2016 15:05'!
  366. load
  367.  
  368.     ^((matrix size - (matrix occurrencesOf: Character space)) / matrix size) * 100! !
  369.  
  370.  
  371. !Box methodsFor: 'inserting' stamp: 'AMC 3/24/2016 12:59'!
  372. doInsertion: anInsertion of: aPrime
  373.  
  374.     self
  375.         insert: aPrime printString
  376.         at: anInsertion point
  377.         horizontalIf: anInsertion isHorizontal.
  378.     primesUsed
  379.         add: aPrime;
  380.         addAll: anInsertion accidentalPrimes! !
  381.  
  382. !Box methodsFor: 'inserting' stamp: 'AMC 3/24/2016 11:21'!
  383. growMatrixByOneUpTo: aDimension
  384.  
  385.     | smallMatrix rowOffset columnOffset |
  386.     smallMatrix := matrix copy.
  387.     matrix := Matrix
  388.         rows: (self height + 2 min: aDimension y)
  389.         columns: (self width + 2 min: aDimension x)
  390.         element: Character space.
  391.     rowOffset := (self height - smallMatrix numberOfRows) min: 1.
  392.     columnOffset := (self width - smallMatrix numberOfColumns) min: 1.
  393.     self copy: smallMatrix to: (1 + columnOffset) @ (1 + rowOffset)! !
  394.  
  395. !Box methodsFor: 'inserting' stamp: 'AMC 3/25/2016 17:46'!
  396. bestInsertionFor: aString
  397.  
  398.     | insertions |
  399.     insertions := OrderedCollection new.
  400.     self pointsDo: [:eachPoint |
  401.         insertions
  402.             addIfNotNil: (self insertionOf: aString at: eachPoint isHorizontal: true);
  403.             addIfNotNil: (self insertionOf: aString at: eachPoint isHorizontal: false)
  404.         ].
  405.     insertions removeAllSuchThat: [:each |
  406.         self isInsertion: each invalidWith: aString asInteger
  407.         ].
  408.     ^insertions detectMax: [:each |
  409.         (each accidentalPrimes size * 1) + (each numberOfOverlaps * 2)
  410.         ]! !
  411.  
  412. !Box methodsFor: 'inserting' stamp: 'AMC 3/24/2016 11:08'!
  413. copy: aMatrix to: aPoint
  414.  
  415.     matrix
  416.         atRows: aPoint y
  417.         to: aPoint y + aMatrix numberOfRows - 1
  418.         columns: aPoint x
  419.         to: aPoint x + aMatrix numberOfColumns - 1
  420.         put: aMatrix! !
  421.  
  422. !Box methodsFor: 'inserting' stamp: 'AMC 3/24/2016 12:51'!
  423. insertionOf: aString at: aPoint isHorizontal: isHorizontal
  424.  
  425.     | point insertion |
  426.     point := aPoint.
  427.     (self canFitEndsAt: point length: aString size isHorizontal: isHorizontal)
  428.         ifFalse: [^nil].
  429.     (self isAlreadyThere: aString at: aPoint isHorizontal: isHorizontal)
  430.         ifTrue: [^nil].
  431.     insertion := Insertion at: point isHorizontal: isHorizontal.
  432.     1 to: aString size do: [:eachIndex |
  433.         | eachCharacter |
  434.         eachCharacter := aString at: eachIndex.
  435.         (self canDoInsertion: insertion of: eachCharacter at: point)
  436.             ifTrue: [
  437.                 (self at: point) == eachCharacter
  438.                     ifTrue: [insertion increaseOverlaps].
  439.                 point := point + (self offset: isHorizontal)
  440.                 ]
  441.             ifFalse: [^nil]
  442.         ].
  443.     ^insertion! !
  444.  
  445. !Box methodsFor: 'inserting' stamp: 'AMC 3/24/2016 14:19'!
  446. insert: aString at: aPoint horizontalIf: isHorizontal
  447.  
  448.     | point offset |
  449.     point := aPoint.
  450.     offset := isHorizontal ifTrue: [self rightOffset] ifFalse: [self downOffset].
  451.     aString do: [:eachChar |
  452.         self at: point y at: point x put: eachChar.
  453.         point := point + offset
  454.         ]! !
  455.  
  456.  
  457. !Box methodsFor: 'testing' stamp: 'AMC 3/25/2016 16:11'!
  458. isInsertion: anInsertion invalidWith: aPrime
  459.  
  460.     | otherPrimes |
  461.     otherPrimes := anInsertion accidentalPrimes.
  462.     ^(primesUsed includesAny: otherPrimes)
  463.         or: [(otherPrimes includes: aPrime)
  464.         or: [otherPrimes copy removeDuplicates size < otherPrimes size]]! !
  465.  
  466. !Box methodsFor: 'testing' stamp: 'AMC 3/24/2016 15:39'!
  467. canFitEndsAt: aPoint length: aLength isHorizontal: isHorizontal
  468.  
  469.     | before after |
  470.     before := isHorizontal
  471.         ifTrue: [aPoint - self rightOffset]
  472.         ifFalse: [aPoint - self downOffset].
  473.     after := isHorizontal
  474.         ifTrue: [(aPoint x + aLength) @ aPoint y]
  475.         ifFalse: [aPoint x @ (aPoint y + aLength)].
  476.     ^(self isFreeOrBorder: before) and: [self isFreeOrBorder: after]! !
  477.  
  478. !Box methodsFor: 'testing' stamp: 'AMC 3/24/2016 14:49'!
  479. isFreeOrBorder: aPoint
  480.  
  481.     ^(self isBorder: aPoint)
  482.         or: [self isFreeAt: aPoint]! !
  483.  
  484. !Box methodsFor: 'testing' stamp: 'AMC 3/24/2016 16:24'!
  485. canDoInsertion: anInsertion of: aCharacter at: aPoint
  486.     "Answer whether anInsertion of aCharacter is valid at aPoint. If so,
  487.     also update anInsertion with any accidental insertions."
  488.  
  489.     | perpendicularSequence offset front back |
  490.     (self at: aPoint) == aCharacter
  491.         ifTrue: [^true].
  492.     (self isFreeAt: aPoint)
  493.         ifFalse: [^false].
  494.     perpendicularSequence := OrderedCollection with: aCharacter.
  495.     offset := self offset: anInsertion isHorizontal not.
  496.     front := aPoint - offset.
  497.     back := aPoint + offset.
  498.     [self isFreeOrBorder: front] whileFalse: [
  499.         perpendicularSequence addFirst: (self at: front).
  500.         front := front - offset
  501.         ].
  502.     [self isFreeOrBorder: back] whileFalse: [
  503.         perpendicularSequence addLast: (self at: back).
  504.         back := back + offset
  505.         ].
  506.     ^perpendicularSequence size == 1
  507.         or: [
  508.             | string number |
  509.             string := String withAll: perpendicularSequence.
  510.             number := string asInteger.
  511.             (string first ~~ $0 and: [number isPrime])
  512.                 ifTrue: [anInsertion addAccidentalPrime: number. true]
  513.                 ifFalse: [false]
  514.             ]! !
  515.  
  516. !Box methodsFor: 'testing' stamp: 'AMC 3/24/2016 14:50'!
  517. isBorder: aPoint
  518.  
  519.     ^(aPoint x == 0)
  520.         or: [aPoint x == (self width + 1)
  521.         or: [aPoint y == 0
  522.         or: [aPoint y == (self height + 1)]]]! !
  523.  
  524. !Box methodsFor: 'testing' stamp: 'AMC 3/25/2016 16:46'!
  525. isFreeAt: aPoint
  526.  
  527.     ^(self at: aPoint) == Character space! !
  528.  
  529. !Box methodsFor: 'testing' stamp: 'AMC 3/24/2016 16:08'!
  530. isAlreadyThere: aString at: aPoint isHorizontal: isHorizontal
  531.  
  532.     | currentString |
  533.     currentString := isHorizontal
  534.         ifTrue: [self from: aPoint rightBy: aString size]
  535.         ifFalse: [self from: aPoint downBy: aString size].
  536.     ^aString = currentString! !
  537.  
  538.  
  539. !Box methodsFor: 'printing' stamp: 'AMC 3/24/2016 14:46'!
  540. primesUsedPrintString
  541.  
  542.     ^primesUsed size printString, (' prime' asPluralBasedOn: primesUsed)! !
  543.  
  544. !Box methodsFor: 'printing' stamp: 'AMC 3/24/2016 14:45'!
  545. loadPrintString
  546.  
  547.     ^'load: ', self load asInteger printString, '%'! !
  548.  
  549. !Box methodsFor: 'printing' stamp: 'AMC 3/24/2016 14:44'!
  550. sizePrintString
  551.  
  552.     ^self height printString, 'x', self width printString! !
  553.  
  554. !Box methodsFor: 'printing' stamp: 'AMC 3/25/2016 17:18'!
  555. printOn: aStream
  556.  
  557.     aStream
  558.         nextPutAll: 'Box ';
  559.         nextPutAll: self sizePrintString;
  560.         nextPutAll: ' (';
  561.         nextPutAll: self primesUsedPrintString;
  562.         nextPutAll: ', ';
  563.         nextPutAll: self loadPrintString;
  564.         nextPutAll: '):';
  565.         nextPut: Character cr.
  566.     1 to: self height do: [ :eachY |
  567.         aStream nextPut: $|.
  568.         1 to: self width do: [ :eachX |
  569.             aStream nextPut: (self at: eachX @ eachY)
  570.             ].
  571.         aStream nextPut: $|.
  572.         aStream nextPut: Character cr
  573.         ]
  574. ! !
  575.  
  576. "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
  577.  
  578. Box class
  579.     instanceVariableNames: ''!
  580.  
  581. !Box class methodsFor: 'instance creation' stamp: 'AMC 3/24/2016 15:48'!
  582. width: aWidth height: aHeight
  583.  
  584.     | matrix |
  585.     matrix := Matrix rows: aHeight columns: aWidth element: Character space.
  586.     ^self newWith: matrix! !
  587.  
  588. !Box class methodsFor: 'instance creation' stamp: 'AMC 3/24/2016 15:47'!
  589. newWith: aMatrix
  590.  
  591.     ^self new
  592.         matrix: aMatrix;
  593.         yourself! !
  594.  
  595.  
  596. !Box class methodsFor: 'primes' stamp: 'AMC 3/24/2016 14:33'!
  597. primesIn: aString
  598.  
  599.     ^((aString splitOn: Character space)
  600.         collect: [:each | (String withAll: each) asInteger])
  601.             select: [:each |
  602.                 each notNil and: [
  603.                     (each > 9 and: [each isPrime not])
  604.                         ifTrue: [self error: 'Caught unexpected non-prime: ', each printString].
  605.                     each > 9
  606.                     ]
  607.                 ]! !
  608. 'From Pharo4.0 of 18 March 2013 [Latest update: #40626] on 25 March 2016 at 10:19:38.616703 pm'!
  609.  
  610. !Collection methodsFor: '*Amos' stamp: 'AMC 3/24/2016 14:52'!
  611. addIfNotNil: anElement
  612.  
  613.     anElement ifNotNil: [self add: anElement]! !
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!