ۥ-1@ - B $ $$ $ $ $ $ 2 D D D D D N D X (  !  4  $ DAB725 - Laboration 2 - Smalltalk Peter Holmstrand & Pr Danielsson Uppgift 1: Integer subclass: #Random instanceVariableNames: '' classVariableNames: 'Fro ' poolDictionaries: '' ! !Random class methods ! avrage: n Max: range "Ta medelvrdet av n st range-trningar." | sum | sum := 2. SetFroTime. 1 to: n do: [ :i | sum := sum + (Random next: range) ]. sum := (sum / n) truncated. ^sum! next: n "comment" | tal | Fro := 13849 + (27181 * Fro) bitAnd: 8r177777. tal := (Fro / 65536 * (n + 1)) truncated. ^tal! seed: tal "comment" | | Fro := tal! setFroTime "Sets fro with clock tick counter" | temporaries | Fro := Time millisecondClockValue.! ! !Random methods ! ! /=nnst&2OQSlp,MUXat,0<g|7&,F  BB (Times New Roman Symbol&ArialPostScript PrinterLPT1:PSCRIPTApple LaserWriter Plus WD[ 5d, l2.psXZZeMS Sans SerifTTT"hshsh