From bf11813e4fa859a4833cab226c4ea560765d6d77 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 23 Nov 2025 17:01:59 +0100
Subject: Add ReDo Pharo excercises

---
 pharo-mooc/redo/src/Dice/Die.class.st | 47 +++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 pharo-mooc/redo/src/Dice/Die.class.st

(limited to 'pharo-mooc/redo/src/Dice/Die.class.st')

diff --git a/pharo-mooc/redo/src/Dice/Die.class.st b/pharo-mooc/redo/src/Dice/Die.class.st
new file mode 100644
index 0000000..07b844a
--- /dev/null
+++ b/pharo-mooc/redo/src/Dice/Die.class.st
@@ -0,0 +1,47 @@
+Class {
+	#name : #Die,
+	#superclass : #Object,
+	#instVars : [
+		'faces'
+	],
+	#category : #Dice
+}
+
+{ #category : #'instance creation' }
+Die class >> withFaces: anInteger [ 
+
+	| d |
+	d := Die new.
+	d faces: anInteger.
+	^ d
+]
+
+{ #category : #accessing }
+Die >> faces [
+	^ faces
+]
+
+{ #category : #accessing }
+Die >> faces: anInteger [ 
+	faces := anInteger
+]
+
+{ #category : #initialization }
+Die >> initialize [
+
+	super initialize.
+	faces := 6
+]
+
+{ #category : #initialization }
+Die >> printOn: aStream [
+
+	super printOn: aStream.
+	aStream nextPutAll: ' (', faces printString, ')'
+]
+
+{ #category : #accessing }
+Die >> roll [
+
+	^ faces atRandom
+]
-- 
cgit v1.2.3