Just in time processing on a character stream: Difference between revisions

 

This task was inspired by the movie "[[wp:National_Treasure_%28film%29|National Treasure]]", which refers to a "[[wp:Book cipher|book cipher]]".

 

=={{header|C}}==

{{trans|C++}}

#include <stdio.h>

#include <stdlib.h>

 

return 0;

{{out}}

<pre>Silence-Dogood.</pre>

=={{header|C sharp|C#}}==

{{trans|D}}

using System.Collections.Generic;

using System.Linq;

}

}

{{out}}

<pre>Silence-Dogood.</pre>

=={{header|C++}}==

Text used to encode:[http://paulo-jorente.de/text/theRaven.txt The Raven - by E.A.Poe]

#include <vector>

#include <iostream>

return 0;

}

{{out}}

<pre>

=={{header|D}}==

{{trans|Kotlin}}

import std.array;

import std.conv;

auto uiList = getUserInput();

decode("theRaven.txt", uiList);

{{out}}

<pre>Silence-Dogood.</pre>

=={{header|Go}}==

{{trans|C++}}

 

import (

log.Fatal(err)

}

 

{{out}}

=={{header|Java}}==

{{trans|Kotlin}}

import java.nio.charset.StandardCharsets;

import java.nio.file.Files;

decode("theRaven.txt", uiList);

}

{{out}}

<pre>Silence-Dogood.</pre>

{{works with|jq}}

'''Works with gojq, the Go implementation of jq'''

def getUserInput:

def nwise($n):

| split(" ") | map(tonumber) | nwise(4)

| {formFeed: .[0], lineFeed: .[1], tab: .[2], space: .[3]} ;

 

# Input should be the text as a (long) string

| label $out

| foreach stream as $c (

elif $c == "\f"

then .f += 1

else .s += 1

end;

decode2($uiList) ;

 

# Input: the text

{{out}}

Invocation: jq -Rsr -f program.jq theRaven.txt

=={{header|Julia}}==

Customization is via adding to or deleting from the chars dictionary.

chars = Dict(GET_FF => ['\f'], GET_LF => ['\n'], GET_TAB => ['\t'])

 

 

stream_decode_jit(open("filename.txt", "r"))

 

=={{header|Kotlin}}==

{{trans|C++}}

 

import java.io.File

val uiList = getUserInput()

decode("theRaven.txt", uiList)

 

{{out}}

With some modifications compared to the model.

 

 

type Position = tuple[ff, lf, tab, sp: int]

"33 0 50 0 46 0 54 0 76 0 47 0 84 2 28")

 

 

{{out}}

{{trans|Raku}}

{{libheader|ntheory}}

use warnings;

use feature 'say';

 

my $enc = jit_encode('The slithey toves did gyre and gimble in the wabe');

{{out}}

<pre>Encoded

{{trans|C}}

{{libheader|Phix/libcurl}}

<span style="color: #000080;font-style:italic;">-- demo/rosetta/BookCipher.exw</span>

<span style="color: #008080;">function</span> <span style="color: #000000;">decode</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">fn</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">ui</span><span style="color: #0000FF;">)</span>

<span style="color: #000000;">decodeFile</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"theRaven.txt"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"http://paulo-jorente.de/text/theRaven.txt"</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">code</span><span style="color: #0000FF;">)</span>

<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>

{{out}}

<pre>

=={{header|Python}}==

{{trans|D}}

 

class UserInput:

 

uiList = getUserInput()

{{out}}

<pre>Silence-Dogood.</pre>

{{trans|Kotlin}}

 

 

(define user-input

(define c (decode slice))

#:break (char=? #\! c)

 

{{in}}

Will handle any visible character in the ASCII range as well as space and new-line.

 

Set srand to set the encode / decode "key".

Need to use the same "key" and same implementation

 

say "\n== Decoded: ==";

 

<pre>== Secret: ==

The input file used by this REXX program only contains one page; &nbsp; it has no &nbsp; ''FF'' &nbsp; (''formfeed'') &nbsp; characters in it),

<br>and the injection of &nbsp; ''FF'' &nbsp; characters into the file would be like putting pencil marks into a holy book. &nbsp; <big><big><big> ☺ </big></big></big>

parse arg iFID . /*obtain optional name of file (book).*/

if iFID=='' | iFID=="," then iFID= 'JIT.TXT' /*Not specified? Then use the default.*/

?= ? || x /*append the character to the phrase. */

end /*j*/ /* [↑] display letters found in book. */

{{out|input|text=&nbsp; supplied to the console (terminal) by the user in response to the prompts, &nbsp; (the commas are optional):}}

<pre>

=={{header|Tcl}}==

{{works with|Tcl|8.6}}

 

oo::class create JustInTimeStreamExtract {

tcl::mathop::== $counter $counters(page) $counters(line) $counters(field) $counters(char)

}

Demonstration of use:

<!-- no output; I'll wait for someone else to invent something to decode… -->

 

=={{header|Visual Basic .NET}}==

{{trans|C#}}

 

Structure UserInput

End Sub

 

{{out}}

<pre>Silence-Dogood.</pre>

{{libheader|Wren-dynamic}}

{{libheader|wren-seq}}

 

var UserInput = Tuple.create("UserINput", ["formFeed", "lineFeed", "tab", "space"])

 

var uiList = getUserInput.call()

 

{{out}}

=={{header|zkl}}==

{{trans|C++}}

fcn decode(file,tuplets){

codePad:=File(file).read().mode(String); // blob of text

h.split(" ").pump(List,T(Void.Read,3),

fcn(ff,lf,t,s){ vm.arglist.apply("toInt") });

// our code pad is: http://paulo-jorente.de/text/theRaven.txt

{{out}}

<pre>