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
(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

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 2:   hide show   clone   input   239 days 4 hours ago    Success

  result: Success     time: 0s    memory: 3076 kB     returned value: 255

  input:

  4
  1
  2
  42

  output:

  4
  1
  2
  
• # 1:   hide show   clone   input   239 days 4 hours ago    Success

  result: Success     time: 0s    memory: 3076 kB     returned value: 255

  input:

  1
  2
  3
  4

  output:

  1
  2
  3
  4
  [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.