Ideone.com | Online Clips Interpreter & Debugging Tool

Computer geeks!

language:	CLIPS (clips 6.24)
date:	840 days 6 hours ago
link:
visibility:	public private user's deleted

source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
=>
        (retract ?f)
        (printout t ?n crlf)
        (assert (initial-fact))
)
 
(reset)
 
(run)
 
(exit)

clone download copy to clipboard

compilation info hide

input / output show all hide all

# 8 # 7 # 6 # 5 # 4 # 3 # 2 # 1

upload with new input

# 8: show clone input 196 days 21 hours ago Success

input:

(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
=>
        (retract ?f)
        (printout t ?n crlf)
        (assert (initial-fact))
)
 
(reset)
 
(run)
 
(exit)

output:

[ARGACCES5] Function <> expected argument #1 to be of type integer or float

[DRIVE1] This error occurred in the join network
   Problem resides in join #1 in rule(s):
      writeout

[PRCCODE4] Execution halted during the actions of defrule readin.

# 7: hide show clone input 196 days 21 hours ago Success

result: Success time: 0s memory: 3080 kB returned value: 0
input:
```
(defmodule MAIN (export ?ALL))
```
output:
```
[ARGACCES5] Function <> expected argument #1 to be of type integer or float

[DRIVE1] This error occurred in the join network
   Problem resides in join #1 in rule(s):
      writeout

[PRCCODE4] Execution halted during the actions of defrule readin.
```

# 6: show clone input 196 days 21 hours ago Success

input:

(defrule readin
	?f <- (initial-fact)
	=>
	(retract ?f)
	(assert (number (read)))

output:

[ARGACCES5] Function <> expected argument #1 to be of type integer or float

[DRIVE1] This error occurred in the join network
   Problem resides in join #1 in rule(s):
      writeout

[PRCCODE4] Execution halted during the actions of defrule readin.

# 5: show clone input 196 days 21 hours ago Success

input:

;;; ======================================================
;;;	CS440 Assignment 3 (Part 5)
;;;
;;;     CLIPS Version 6.0 Example
;;;
;;;     To execute, merely load, reset and run.
;;; ======================================================

(defrule readin
	?f <- (initial-fact)
	=>
	(retract ?f)
	(assert (number (read)))

(printout t "Would you say you're introverted or extroverted? ")
(bind ?rarity (read))

(printout t "Would you be able to start a fire using flint and steel? ")
(bind ?utility (read))

(printout t "Are you more 'right brained' (artistic, visual, linguistic) or 'left brained' (analytical, logical, numeric)? ")
(bind ?aesthetic (read))

(printout t "Are you the one being held up by your friends, or is it you doing the helping out? ")
(bind ?humbug-usage (read))

(printout t "When talking with a group of friends, is the topic usually about you? ")
(bind ?humbug-finding (read))

(printout t "Would you say you had a sheltered childhood? ")
(bind ?drop-similarity (read))

output:

[ARGACCES5] Function <> expected argument #1 to be of type integer or float

[DRIVE1] This error occurred in the join network
   Problem resides in join #1 in rule(s):
      writeout

[PRCCODE4] Execution halted during the actions of defrule readin.

# 4: show clone input 196 days 21 hours ago Success

input:

(writeout 1 "Would you say you're introverted or extroverted? ")
(bind ?rarity (read))

output:

[ARGACCES5] Function <> expected argument #1 to be of type integer or float

[DRIVE1] This error occurred in the join network
   Problem resides in join #1 in rule(s):
      writeout

[PRCCODE4] Execution halted during the actions of defrule readin.

# 3: show clone input 196 days 21 hours ago Success

input:

;;; ======================================================
;;;	CS440 Assignment 3 (Part 5)
;;;
;;;     CLIPS Version 6.0 Example
;;;
;;;     To execute, merely load, reset and run.
;;; ======================================================

(writeout "Would you say you're introverted or extroverted? ")
(bind ?rarity (read))

(writeout "Would you be able to start a fire using flint and steel? ")
(bind ?utility (read))

(writeout "Are you more 'right brained' (artistic, visual, linguistic) or 'left brained' (analytical, logical, numeric)? ")
(bind ?aesthetic (read))

(writeout "Are you the one being held up by your friends, or is it you doing the helping out? ")
(bind ?humbug-usage (read))

(writeout "When talking with a group of friends, is the topic usually about you? ")
(bind ?humbug-finding (read))

(writeout "Would you say you had a sheltered childhood? ")
(bind ?drop-similarity (read))

output:

[ARGACCES5] Function <> expected argument #1 to be of type integer or float

[DRIVE1] This error occurred in the join network
   Problem resides in join #1 in rule(s):
      writeout

[PRCCODE4] Execution halted during the actions of defrule readin.

# 2: show clone input 196 days 21 hours ago Success

input:

;;; ======================================================
;;;	CS440 Assignment 3 (Part 5)
;;;
;;;     CLIPS Version 6.0 Example
;;;
;;;     To execute, merely load, reset and run.
;;; ======================================================

(printout t "Would you say you're introverted or extroverted? ")
(bind ?rarity (read))

(printout t "Would you be able to start a fire using flint and steel? ")
(bind ?utility (read))

(printout t "Are you more 'right brained' (artistic, visual, linguistic) or 'left brained' (analytical, logical, numeric)? ")
(bind ?aesthetic (read))

(printout t "Are you the one being held up by your friends, or is it you doing the helping out? ")
(bind ?humbug-usage (read))

(printout t "When talking with a group of friends, is the topic usually about you? ")
(bind ?humbug-finding (read))

(printout t "Would you say you had a sheltered childhood? ")
(bind ?drop-similarity (read))

output:

[ARGACCES5] Function <> expected argument #1 to be of type integer or float

[DRIVE1] This error occurred in the join network
   Problem resides in join #1 in rule(s):
      writeout

[PRCCODE4] Execution halted during the actions of defrule readin.

# 1: hide show clone input 840 days 6 hours ago Success

result: Success time: 0s memory: 3032 kB returned value: 0
input:
```
1
2
10
42
11
```
output:
```
[CSTRCPSR1] Expected the beginning of a construct.
1
2
10
```

UsernamePassword

Username
Password