Ledger Nano X - The secure hardware wallet
SHARE
TWEET

Untitled

a guest Mar 31st, 2020 126 in 112 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun Positivo() ;; Define funcao
  2. (terpri) ;; quebra de linha
  3. (princ "Entre com um numero: ")  ;; exibe mensagem
  4. (setq num (read)) ;; faz leitura do teclado e armazena na variavel num
  5. (if (>= num 0) ; comando if
  6.   (princ "Positivo")
  7.   (princ "Negativo")
  8. ))
  9. (Positivo) ;; chama funcao
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top