Execute HQ9+: Difference between revisions

 

=={{header|Ada}}==

 

see [[Execute HQ9+/Ada]]

 

=={{header|ALGOL 68}}==

Translation of DWScript. the accumulator is global.

INT hq9accumulator := 0;

 

read( ( code, newline ) );

hq9( code )

 

=={{header|Applesoft BASIC}}==

110 LET J$ = I$ + CHR$(13)

120 LET H$ = "HELLO, WORLD!"

210 IF C$ <> "9" THEN 280

220 FOR B = 99 TO 1 STEP -1

240 PRINT "TAKE ONE DOWN, ";

250 PRINT "PASS IT AROUND"

270 NEXT B

 

 

 

 

 

=={{header|AutoHotkey}}==

 

testCode := "hq9+HqQ+Qq"

}

Return output

 

END

ENDCASE

NEXT i%

'''Output:'''

<pre>

hq9+HqQ+Qq

</pre>

 

=={{header|C}}==

{

int c_len = strlen(code);

for(i=0;i<c_len;i++)

{

}

}

 

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

Basically the same as the C example, although this has been C++'ified with strings and streams.

{

int c_len = code.length();

for(int i=0;i<c_len;i++)

{

}

}

 

=={{header|Ceylon}}==

void eval(String code) {

eval("hq9+");

 

=={{header|Clojure}}==

(:require [clojure.string :as str]))

 

\9 (bottles)

\+ (reset! accumulator (inc @accumulator)))

 

=={{header|COBOL}}==

PROGRAM-ID. Exec-Hq9.

 

 

GOBACK

 

=={{header|Common Lisp}}==

 

=={{header|D}}==

 

void main(in string[] args) {

}

}

 

=={{header|DWScript}}==

 

{{Trans|D}}

var

i : Integer;

end;

end;

 

=={{header|E}}==

 

See [[Execute HQ9+/E]].

 

=={{header|Ela}}==

===Impure approach===

 

eval src = eval' src

| else = fail ("Unrecognized " ++ x)

where r = ref 0

h () = writen "Hello, world!"

q () = writen src

(show x) " bottles of beer\r\n"

"Take one down, pass it around\r\n"

 

===Pure version===

An interpreter itself has no side effects:

 

eval src = eval' src 0

| be '+' = eval' xs (a+1)

| else = fail "Invalid instruction."

h = "Hello, world!"

q = src

++ show x ++ " bottles of beer\r\n"

++ "Take one down, pass it around\r\n"

 

 

 

=={{header|Erlang}}==

% http://www.erlang.org/

-module(hq9p).

main(Compiled, Prog, 0).

 

 

=={{header|Forth}}==

 

: H cr ." Hello, world!" ;

: Q cr 2dup type ;

i 1 [ get-current literal ] search-wordlist

if execute else true abort" invalid HQ9+ instruction"

 

 

 

=={{header|Go}}==

 

See [[RCHQ9+/Go]].

 

=={{header|Haskell}}==

 

=={{header|Haxe}}==

static function hq9plus(code:String):String {

var out:String = "";

}

return out;

 

=={{header|Icon}} and {{header|Unicon}}==

Process HQ9+ from command line arguments and input until an error or end-of file.

repeat writes("Enter HQ9+ code: ") & HQ9(get(A)|read()|break)

end

}

return

=={{header|J}}==

 

From [[99_Bottles_of_Beer#J|99 Bottles of Beer]]

bobw=: bob , ' on the wall'"_

 

The rest of the interpreter:

Q=: smoutput @ [

hq9=: smoutput @: (beer"0) bind (1+i.-99)

hqp=: (A=:1)1 :'0 0$A=:A+m[y'@]

 

 

Example use:

 

Hello, world!

hqQQq

hqQQq

hqQQq

 

=={{header|Java}}==

=={{header|JavaScript}}==

The function below executes a HQ9+ program and returns the program output as a string.

var out = '';

var acc = 0;

}

return out;

 

=={{header|Liberty BASIC}}==

Prompt "Please input your hq9+ program."; code$

Print hq9plus$(code$)

Next i

hq9plus$ = Left$(hq9plus$, (Len(hq9plus$) - 2))

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

 

Module[{accumulator = 0, bottle},

bottle[n_] :=

"\ntake one down, pass it around\n" <> bottle[n - 1] <>

" on the wall" <> If[n == 1, "", "\n\n"], {n, 99, 1, -1}]],

 

=={{header|NetRexx}}==

Modify contents of the program variable as you see fit.

 

var program = "9hHqQ+"

var i = 0

else:

echo("Unknown command: ", token)

 

=={{header|PARI/GP}}==

 

The lyrics are based on the reference implementation. The endline and case-insensitivity are from an example in the spec.

if(n == 1,

print("1 bottle of beer on the wall");

if(v[i] == "+", accum++, error("Nasal demons"))

)

 

Sample input/output:

qqqq

qqqq</pre>

 

=={{header|Perl}}==

This implementation uses the ''switch'' feature.

use warnings;

use strict;

return 'Take one down and pass it around' if $n > 0;

return 'Go to the store and buy some more';

 

}

}

 

 

 

 

</pre>

 

=={{header|PicoLisp}}==

(let Accu 0

(for C (chop Code)

(prinl) ) )

("+" (inc 'Accu)) ) )

 

=={{header|PureBasic}}==

Protected accumulator, i, bottles

For i = 1 To Len(code)

Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()

CloseConsole()

 

=={{header|Python}}==

 

See [[RCHQ9+/Python]].

 

=={{header|Racket}}==

strictly case-sensitive.

 

; if we `for` over the port, we won't have the program in memory for 'Q'

(define (parse-HQ9+ the-program)

(check-equal? (with-output-to-string (lambda () (parse-HQ9+ (make-string 10000 #\+)))) "")

;;; you can jolly well read (and sing along to) the output of '9'

 

=={{header|REXX}}==

</pre>

 

 

See [[RCHQ9+/Ruby]].

 

=={{header|Scala}}==

var out = ""

var acc = 0

 

println(hq9plus("HQ9+"))

 

=={{header|Seed7}}==

The program below accepts the HQ9+ program as command line parameter:

 

 

const proc: runCode (in string: code) is func

runCode(argv(PROGRAM)[1]);

end if;

 

=={{header|Sidef}}==

has pointer;

has accumulator;

}

}

 

Usage:

 

{{out}}

 

Or start a REPL (Read Execute Print Loop) and interact at the command line:

loop {

var in = read('HQ9+>', String) \\ break;

hq9.run(in)

 

=={{header|Tcl}}==

 

See [[RCHQ9+/Tcl]].

 

=={{header|Ursala}}==

 

See [[RCHQ9+/Ursala]].

 

=={{header|XSLT}}==

Requires <code>bottles.xsl</code> (below).

 

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">

<!-- bottles.xsl defines $entire-bottles-song -->

</xsl:if>

</xsl:template>

 

=====Details=====

Input to this sheet is given by placing the entire source as a single <code><nowiki><code/></nowiki></code> element. For example, to run the example program <code>qqqq</code>, use the sheet to transform the document

 

 

Newlines are added in roughly the same places as in the C version. For example, the program <code>qqqq</code> results in four lines of output rather than one long line.

Requires <code>bottles.xsl</code> (below)

 

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">

<!-- bottles.xsl defines $entire-bottles-song -->

</xsl:choose>

</xsl:template>

 

=====Details=====

Input to this sheet is given by placing one or more sources as <code><nowiki><code/></nowiki></code> elements. For example, to run the example program <code>qqqq</code>, use the sheet to transform the document

 

 

or the programs <code>qqqq</code> and <code>++++</code> can be run in the same pass by transforming

 

<code>qqqq</code>

<code>++++</code>

 

The output document is a <code><nowiki><results/></nowiki></code> element containing a <code><nowiki><result/></nowiki></code> element for each <code><nowiki><code/></nowiki></code> element processed from the input. If a <code>+</code> appeared in the program, the <code><nowiki><result/></nowiki></code> element will indicate the final value of the accumulator in its <code>accumulator</code> attribute. For example, the output for the latter example, would be

 

qqqq

qqqq

qqqq

 

====bottles.xsl====

This sheet defines a value for the variable <code>$entire-bottles-song</code> (see [[99 Bottles of Beer]] for the general idea).

 

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0" xmlns:lo="urn:uuid:59afd337-03a8-49d9-a7a8-8e2cbc4ef9cc">

<!-- Note: xmlns:lo is defined as a sort of pseudo-private namespace -->

</xsl:variable>

 

 

=={{header|zkl}}==

acc:=0;

foreach c in (code){

(n==0 and "No more bottles" or (n==1 and "1 bottle" or "" + n + " bottles"))

+ " of beer"

{{out}}

<pre>