Decision tables: Difference between revisions

=={{header|Quackery}}==

<syntaxhighlight lang="Quackery"> [ say "Check power cable." cr ] is cpc ( --> )

[ say "Check printer-computer cable." cr ] is cpcc ( --> )

[ say "Ensure printer software installed." cr ] is epsi ( --> )

[ say "Check/replace ink." cr ] is cri ( --> )

[ say "Check for paper jam." cr ] is cpj ( --> )

[ say "No problem detected." cr ] is npd ( --> )

[ [ dup $ " (y/n) " join input

dup $ "" = iff drop again ]

nip 0 peek upper char Y = ] is condition ( $ --> b )

[ $ "Does the printer print?"

condition

$ "Is a red light flashing?"

condition

$ "Does the computer recognise the printer?"

condition

1 << | 1 << |

[ table

[ cpc cpcc epsi ]

[ epsi ]

[ cpcc epsi cpj ]

[ epsi ]

[ cpj ]

[ npd ]

[ cri cpj ]

[ cri ] ]

cr do ] is diagnose ( --> )</syntaxhighlight>

{{out}}

As a dialogue in the Quackery shell.

<pre>/O> diagnose

...

Does the printer print? (y/n) n

Is a red light flashing? (y/n) n

Does the computer recognise the printer? (y/n) y

Check for paper jam.

</pre>