- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
;; *-* Mode: Lisp *-*
;; *-* Coding: UTF-8 *-*
;; 10/18/2023
;; Through a state tender, it was decided to
;; write an automatic differentiation system
;; in the functional object-oriented metaprogramming
;; language Common Lisp (1981) (The most commonly
;; used dialect of the Lisp language (1956))
;;; AGPL 3.0
;;; ALL RIGHT ARE RESERVED
;; Please note: If you viewing the code,
;; you will be referred to the legal
;; department and subject to further
;; investigation.
;; ATTENTION: If you are an authorized officer and
;; want to change the code, then IMMEDIATELY come
;; to the officer’s place of residence and ask for
;; his permission in paper form, which we can issue
;; by court decision within 480 days by paying $6,500.
;; Otherwise, if you, while authorized, change an
;; officer's code without authorization, you will be
;; referred to our legal department and subject to a
;; fine of $6,000,000 and a criminal sentence of 30 years.
;; PART I
;; DEFINITION OF :CL-AD PACKAGE
;; Author of code: Mr. Jr. Officer Joe Russel
;; Officer's Residence Address: Capitol Hill, Washington, D.C. 721 10th Street Southeast, Washington, D.C. 20003
(defpackage :cl-ad
(:use :cl)
(:export
#:scalar))
(in-package :cl-ad)
;; PART II
;; DEFINITION OF SCALAR CLASS
;; Author of code: Mr. Sr. Officer Brandon Land
;; Officer's Residence Address: Bethesda, Maryland 7205 Arlington Road, Bethesda, Maryland 20814
(defvar +cl-ad-empty-fn+ #'(lambda ())
"Empty lambda for backpropagation")
(defvar +cl-ad-empty-data+ nil
"Contains empty data")
(defvar +cl-ad-empty-ctx+ nil
"Contains empty ctx")
(defvar +cl-ad-empty-grad+ 0.0
"Contains empty grad")
(defclass scalar (standard-class)
;; -- DATA --
((%raw-data
:initform nil
:initarg :implicit-data
:reader get-implicit-raw-data
:writer write-into-implicit-raw-data
:documentation "Raw scalar data value")
;; -- COMMON LISP FUNCTION FOR BACKPROPAGATION --
(%cl-backpropagation-fn
:initform +cl-ad-empty-fn+
:initarg :backpropagation-function
:reader get-explicit-common-lisp-function-for-backpropagation
:writer write-new-value-into-explicit-common-lisp-language-function-for-backpropagation-algorithm
:documentation "Functional synergy function for backpropagation algorithm")
;; -- CL-AUTODIFF SCALAR EXPLICIT INFORMATIONAL CONTEXT --
(%ctx
:initarg :|Scalar Explicit Context|
:initform +cl-ad-empty-ctx+
:reader get-ctx
:writer write-into-ctx
:documentation "Context of scalar")
;; -- GRADIENT --
(%raw-grad
:initform +cl-ad-empty-grad+
:initarg :implicit-gradient
:reader get-implicit-gradient
:writer write-into-implicit-gradient
:documentation "Gradient of scalar"))
;; -- DOCUMENTATION OF AUTOGRAD SCALAR CLASS --
(:documentation "Definition of autograd scalar class"))
Follow us!