Add ReDo Pharo excercises

1 files changed, 28 insertions, 0 deletions

diff --git a/pharo-mooc/redo/src/Dice/Integer.extension.st b/pharo-mooc/redo/src/Dice/Integer.extension.st
new file mode 100644
index 0000000..f97a827
--- /dev/null
+++ b/pharo-mooc/redo/src/Dice/Integer.extension.st
@@ -0,0 +1,28 @@
+Extension { #name : #Integer }
+
+{ #category : #'*Dice' }
+Integer >> D20 [
+
+	self D: 20
+]
+
+{ #category : #'*Dice' }
+Integer >> D4 [
+
+	^ self D: 4
+]
+
+{ #category : #'*Dice' }
+Integer >> D6 [
+
+	^ self D: 6
+]
+
+{ #category : #'*Dice' }
+Integer >> D: anInteger [
+
+	| handle |
+	handle := DieHandle new.
+	self timesRepeat: [ handle addDie: (Die withFaces: anInteger) ].
+	^ handle
+]