Just in time processing on a character stream: Difference between revisions
Just in time processing on a character stream (view source)
Revision as of 18:20, 15 October 2021
, 2 years ago→{{header|jq}}
(fix English in problem description) |
|||
Line 666:
{{out}}
<pre>Silence-Dogood.</pre>
=={{header|jq}}==
'''Adapted from [[#Wren|Wren]]'''
{{works with|jq}}
'''Works with gojq, the Go implementation of jq'''
<lang jq># User input takes the form of quadtuples of integers: [formFeed, lineFeed, tab, space]
def getUserInput:
def nwise($n):
def n: if length <= $n then . else .[0:$n] , (.[$n:] | n) end;
n;
"0 18 0 0 0 68 0 1 0 100 0 32 0 114 0 45 0 38 0 26 0 16 0 21 0 17 0 59 0 11 " +
"0 29 0 102 0 0 0 10 0 50 0 39 0 42 0 33 0 50 0 46 0 54 0 76 0 47 0 84 2 28"
| split(" ") | map(tonumber) | nwise(4)
| {formFeed: .[0], lineFeed: .[1], tab: .[2], space: .[3]} ;
# Input should be the text as a (long) string
def decode($uiList):
def stream: explode[] | [.] | implode;
def decode2(ui):
. as $text
| label $out
| foreach stream as $c (
{ f: 0, l: 0, t: 0, s: 0 };
.return = null
| if .f == ui.formFeed and .l == ui.lineFeed and .t == ui.tab and .s == ui.space
then if $c == "!" then .return = false
else .out += $c
| .return = true
end
elif $c == "\f"
then .f += 1
| .l = 0
| .t = 0
| .s = 0
elif $c == "\n"
then .l += 1
| .t = 0
| .s = 0
elif $c == "\t"
then .t += 1
| .s = 0
else .s += 1
end;
if .return != null then .out, break $out else empty end)
// .out ;
decode2($uiList) ;
# Input: the text
[getUserInput as $ui | decode($ui) ] | add
</lang>
{{out}}
Invocation: jq -Rsr -f program.jq theRaven.txt
<pre>
Silence-Dogood.
</pre>
=={{header|Julia}}==
| |||