Light

vlad-km / mlisa Goto Github PK

View Code? Open in Web Editor NEW

0.0 2.0 0.0 1.07 MB

Lisp production-rule system (LISA - Lisp-based Intelligent Software Agent) modified for JSCL A fork of http://lisa.sourceforge.net/ v3.2

License: GNU General Public License v3.0

Common Lisp 100.00%

common-lisp lisp lisp-production-rule jscl lisa

mlisa's Introduction

mLisa

Lisp production-rule system (LISA) modified for JSCL.

A fork of `http://lisa.sourceforge.net/`. Fossil Lisp code, ancient as mammoth's shit

Compilation only under web-repl (platform Electron)

(setq bin #())
(load "00-prelude.lisp" :hook bin)
(load "01-utils.lisp" :hook bin)
(load "02-belief.lisp" :hook bin)
(load "03-reflect.lisp" :hook bin)
(load "04-core.lisp" :hook bin)
(load "05-rete.lisp" :hook bin)
(load "06-config.lisp" :hook bin :output "lisa.js")

Will be bundle js-code "lisa.js".

Compilation "lisa.js" look at https://github.com/vlad-km/mLisa/releases v0.1-alpha First iteration

Use with browser

File jscl.html:

    <script src="lisa.js" type="text/javascript"></script>
    <script src="jscl-web.js" type="text/javascript"></script>

(deftemplate hobbit () 
    (slot name) (slot age))

(defrule r-1 ()
     (hobbit (name ?name) (age ?age))
=>
 (format t "Spawn hobbit ~a ~a ~%" ?name ?age))

(defrule r-2 ()
    (hobbit (name gendalf) (age 100))
=>
 (format t "Spawn wizard, ancient as mammoth's shit~%"))

(assert> (hobbit (name frodo)(age 30)))
(assert> (hobbit (name bilbo)(age 50)))
(assert> (hobbit (name gendalf)(age 100)))

General view

What's next

Read original documentation. Have a fun.

As is, without any guarantees or obligations

mlisa's People

Contributors

Watchers

mlisa's Issues

PROGV implementation

Problem with belief-factor

primary method

vector-pop

fn Compile

mb (eval)?

fn DELETE

mb

Assert instance

CL-USER> (deftemplate frob () (slot name) (slot slot))
#<standard-class FROB>
CL-USER> (deftemplate e1 ())
#<standard-class E1>
CL-USER> (setq ?ff (assert> (e1)))
#<instance FACT E1 6 (..) NIL E1 STANDARD-CLASSNIL FACT-META-OBJECT STRUCTURE-CLASS>
CL-USER> (assert> (frob (slot ?ff)))
ERROR: Maximum call stack size exceeded

Assert

fn LOAD (version from november 2020) replicate to master

Method equals and EQUALP

Problem with Cl:ASSERT

just do it

Multiple adjust-belief methods with different namespace

logical block definition

(defrule r-1 ()
  (logical
     (frodo)
     (not (bilbo)))
 (gimley)
=>)
ERROR: Out of range

Recommend Projects

React

A declarative, efficient, and flexible JavaScript library for building user interfaces.
Vue.js

🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
Typescript

TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
TensorFlow

An Open Source Machine Learning Framework for Everyone
Django

The Web framework for perfectionists with deadlines.
Laravel

A PHP framework for web artisans
D3

Bring data to life with SVG, Canvas and HTML. 📊📈🎉

Recommend Topics

javascript

JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
web

Some thing interesting about web. New door for the world.
server

A server is a program made to process requests and deliver data to clients.
Machine learning

Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Visualization

Some thing interesting about visualization, use data art
Game

Some thing interesting about game, make everyone happy.

Recommend Org

Facebook

We are working to build community through open source technology. NB: members must have two-factor auth.
Microsoft

Open source projects and samples from Microsoft.
Google

Google ❤️ Open Source for everyone.
Alibaba

Alibaba Open Source for everyone
D3

Data-Driven Documents codes.
Tencent

China tencent open source team.