### 1.14.3 Ορισμός ενός τελεστή: user_operator

user_operator παίρνει ως όρισμα :

- ένα αλφαριθμητικό : το όνομα του τελεστή,
- μία συνάρτηση δύο μεταβλητών με τιμές σε ℝ ή σε true, false,
- μια επιλογή Binary για τον ορισμό ή Delete για να ακυρώσετε αυτόν τον ορισμό.

user_operator επιστρέφει 1 εάν ο ορισμός έχει γίνει διαφορετικά επιστρέφει 0.

Παράδειγμα 1
Έστω ότι ο R ορίζεται στο ℝ ως x R y= x*y+x+y.
Για να ορίσετε τον κανόνα R, πληκτρολογείστε :

user_operator("R",(x,y)->x*y+x+y,Binary)

Έξοδος :

1

Είσοδος (μην ξεχνάτε να βάλετε κενά γύρω από το R) :

5 R 7

Έξοδος :

47

Παράδειγμα 2
Έστω ότι ο S ορίζεται στο ℕ ως :
για τους ακεραίους x και y , x S y <=> x και y δεν είναι πρώτοι μεταξύ τους.
Για να ορίσετε τον κανόνα S, πληκτρολογείστε :

user_operator("S",(x,y)->(gcd(x,y))!=1,Binary)

Έξοδος :

1

Είσοδος (μην ξενχάτε να βάλετε κενά γύρω από το S) :

5 S 7

Έξοδος :

0

Είσοδος (μην ξενχάτε να βάλετε κενά γύρω από το S) :

8 S 12

Έξοδος :

1