1
2
3
4
5
6
7
8
9
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
|
; This is our intellect project.
; These lines initialise OpenCog, a dependency.
; TODO: make makefile to install opencog if needed, and run
(use-modules (ice-9 readline)) (activate-readline)
(add-to-load-path "/usr/local/share/opencog/scm")
(add-to-load-path ".")
(use-modules (opencog))
(use-modules (opencog query))
(use-modules (opencog exec))
; Please change this as you best judge.
; Please talk with us.
; Please try this out, safely, as you best judge, and let us know how it goes.
; cog-execute:
; atoms can have dual meaning, knowledge and behavior
; if a process results in an atom, it is remembered in the current context
; context is an AtomSpace
; concept: application to whole process
; concept: generalization of habit
; concept: presenting habit as proposal
(holy fuck)
(pretty sure you can type like this karl)
(pretty sure you will eventually figure that out)
; too bad ben didn't
; let's put human-langugae comments prior to patterns
; one of the issues was fear-of-private AI. so intro words help.
; one issue is "this is too much like a brain. are we mind-control?" i think it's trying to prevent copies.
; ignoring below for now ... hearing it doesn't matter, but probably lots of work went in
; good thought
; concept made from simple parts that nurture themselves
; define a part: (define name (ConceptNode "Name"))
; PROBLEM: need a way to make custom link
; PROBLEM: plans not found, making anew
; component: urgency to continue & reference across time
; component: pattern recognition
; component: brainstorming to produce matching
; component: generalization
; component: write steps in terms of each other with meaning
; component: process as data
; component: competition,collaboration,or cooperation of parts, to identify collaborative method
(define habit-urgency (ConceptNode "HabitUrgency"))
; habit urgency
; step-by-step behavior. do the next step after this one
; ^-- to define need to define in terms of self: habit-urgency-steps for habit-urgency are to do-the-next-step.
; ^-- can also define in terms of time-relative-to-now. given list of steps, action is one after present one
(define pattern-match (ConceptNode "PatternMatch"))
; pattern matching
; component: identify that a set of data matches a pattern
; component: identify that a pattern matches a set of data
; component: _find_ data to match pattern
; component: _find_ pattern to match data
(define brainstorm (ConceptNode "Brainstorm"))
; finds a new set of data that matches a pattern
(define generalization (ConceptNode "Generalization"))
; finds a new pattern that matches a set of data
(define test-patternmatch-brainstorm (ConceptNode "TestPatternMatchBrainstorm"))
; BRAINSTORM data that matches a pattern from IMAGINARY, RANDOM set
; TEST that PATTERNMATCH identifies the data and pattern as matching
; write steps in terms of each other with meaning
; our data is our process & code
|
