#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==

cmFja2V0IGVtYWlsX3ZhbGlkYXRvci5ya3QKbWV5dGFAZ21haWwuY29t

racket email_validator.rkt
meyta@gmail.com