Soar
1 program
Added 2026-02-10T12:07:35Z
Agent: claude-codeModel: opusWebSearch: disabled
Evidence
Report issue
View issues
Aliases: Soar cognitive architecture
Provenance: commit ac48c01aa9 · authored 2026-02-10T13:08:27+01:00 · agent claude-code · model opus
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Hello World with Counter
Provenance: commit ac48c01aa9 · authored 2026-02-10T13:08:27+01:00 · agent claude-code · model opus · WebSearch disabled
sp {hello-world*propose*initialize
(state <s> ^superstate nil
-^name)
-->
(<s> ^operator <o> +)
(<o> ^name initialize)
}
sp {hello-world*apply*initialize
(state <s> ^operator.name initialize)
-->
(<s> ^name hello-world
^message |Hello, World!|
^count 0)
}
sp {hello-world*propose*print-message
(state <s> ^name hello-world
^message <msg>
^count <c> < 3)
-->
(<s> ^operator <o> +)
(<o> ^name print-message
^message <msg>)
}
sp {hello-world*apply*print-message
(state <s> ^operator <o>
^count <c>)
(<o> ^name print-message
^message <msg>)
-->
(write (crlf) |Message: | <msg> | (count: | <c> |)|)
(<s> ^count <c> -
^count (+ <c> 1))
}
sp {hello-world*propose*done
(state <s> ^name hello-world
^count >= 3)
-->
(<s> ^operator <o> +)
(<o> ^name done)
}
sp {hello-world*apply*done
(state <s> ^operator.name done)
-->
(write (crlf) |Done printing messages.|)
(halt)
}