src/lib/repetition.slate

   1 define: #Repetition &parents: {Sequence}
   2 "A Repetition is a Sequence of the same element repeated over its length."
   3   &slots: {#number. "The number of times the element occurs."
   4            #element. "The repeated element." }.
   5
   6 r@(Repetition traits) new &capacity: n
   7 [r clone `setting: #{#number. #element} to: {n. Nil}].
   8
   9 r@(Repetition traits) newFor: obj sized: n
  10 [r clone `setting: #{#number. #element} to: {n. obj}].
  11
  12 obj@(Root traits) repeatedTimes: n
  13 "Convenient syntax to instantiate it."
  14 [Repetition newFor: obj sized: n].
  15
  16 r@(Repetition traits) size
  17 [r number].
  18
  19 r@(Repetition traits) at: index ifAbsent: block
  20 [(index between: 0 and: r number) ifTrue: [r element] ifFalse: [block do]].
  21
  22 r@(Repetition traits) at: index put: obj
  23 [
  24   r element
  25     ifNil: [r element := obj]
  26     ifNotNil: [error: 'An attempt was made to modify a Repetition.']
  27 ].
  28
  29 r@(Repetition traits) do: block
  30 [r number timesRepeat: [block applyWith: r element]].
  31
  32 r@(Repetition traits) collect: block
  33 [r collect: block into: (Array newSizeOf: r)].
  34
  35 c@(Repetition traits) printContentsOn: o@(PrettyPrinterMixin traits) separatedBy: block
  36 "Print out the element and occurrences like a faux multiplication."
  37 [
  38   c element printOn: o.
  39   o ; ' x '.
  40   c number printOn: o.
  41   o
  42 ].