#lang racket
; Fungsi untuk memvalidasi email menggunakan regex
(define (valid-email? email)
(regexp-match? #px"^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{2,}$" email))
; Fungsi utama untuk menerima input pengguna dan memvalidasi email
(define (main)
(display "Masukkan alamat email yang ingin divalidasi: ")
(define email (read-line)) ; Membaca input dari pengguna
(if (valid-email? email)
(displayln (string-append "Alamat email valid: " email))
(displayln (string-append "Alamat email TIDAK valid: " email))))
; Panggil fungsi utama
(main)
I2xhbmcgcmFja2V0Cgo7IEZ1bmdzaSB1bnR1ayBtZW12YWxpZGFzaSBlbWFpbCBtZW5nZ3VuYWthbiByZWdleAooZGVmaW5lICh2YWxpZC1lbWFpbD8gZW1haWwpCiAgKHJlZ2V4cC1tYXRjaD8gI3B4Il5bYS16QS1aMC05Ll8lKy1dK0BbYS16QS1aMC05Li1dK1xcLlthLXpBLVpdezIsfSQiIGVtYWlsKSkKCjsgRnVuZ3NpIHV0YW1hIHVudHVrIG1lbmVyaW1hIGlucHV0IHBlbmdndW5hIGRhbiBtZW12YWxpZGFzaSBlbWFpbAooZGVmaW5lIChtYWluKQogIChkaXNwbGF5ICJNYXN1a2thbiBhbGFtYXQgZW1haWwgeWFuZyBpbmdpbiBkaXZhbGlkYXNpOiAiKQogIChkZWZpbmUgZW1haWwgKHJlYWQtbGluZSkpIDsgTWVtYmFjYSBpbnB1dCBkYXJpIHBlbmdndW5hCiAgKGlmICh2YWxpZC1lbWFpbD8gZW1haWwpCiAgICAgIChkaXNwbGF5bG4gKHN0cmluZy1hcHBlbmQgIkFsYW1hdCBlbWFpbCB2YWxpZDogIiBlbWFpbCkpCiAgICAgIChkaXNwbGF5bG4gKHN0cmluZy1hcHBlbmQgIkFsYW1hdCBlbWFpbCBUSURBSyB2YWxpZDogIiBlbWFpbCkpKSkKCjsgUGFuZ2dpbCBmdW5nc2kgdXRhbWEKKG1haW4pCg==