Skip to content

Instantly share code, notes, and snippets.

@fititnt
Last active August 29, 2015 14:10
Show Gist options
  • Save fititnt/40eed779e3cc5434830e to your computer and use it in GitHub Desktop.
Save fititnt/40eed779e3cc5434830e to your computer and use it in GitHub Desktop.
comentarios
#lang racket/base
;; Arquivo contendo visão geral sobre como documentar código em scheme (Racket)
;; Estruct
;;------------------------------------------------------------------------------
(define-struct elemento
(nome simbolo nro-atomico serie-atomica))
;; Um elemento elemento de Elemento é uma estrutura
;; (make-elemento um-nome um-simbolo um-nro-atomico um-serie-atomica) onde
;; nome: Símbolo, nome do elemento
;; um-simbolo: Símbolo, simbolo químico do elemento
;; um-nro-atomico: Número, número atômico do elemento
;; um-serie-atomica: Símbolo, série química do elemento
;; Função
;;------------------------------------------------------------------------------
;; soma: numero numero -> numero
;; retorna a soma de dois números.
(define (soma a b)
(+ a b))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment