aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Task/Interactive-programming-repl-/Elena/interactive-programming-repl-.elena
View file

@ -1,17 +1,29 @@
c:\Alex\ELENA\bin>elt-cli
ELENA command line VM terminal 6.0.7 (C)2021-23 by Aleksey Rakov
ELENA VM 6.0.25 (C)2022-2023 by Aleksey Rakov
ELENA command line VM terminal 6.9.6 (C)2021-25 by Aleksey Rakov
Loading repl template
Loading multiline template
Loading get_var template
Loading set_var template
ELENA VM 6.9.14 (32-bit) (C)2022-2025 by Aleksey Rakov, ELENA-LANG Org
Initializing...
-q - quit
-c - clear
-h - help
-l <path> - execute a script from file
-p<script>; - prepend the prefix code
{ <script>; }*
<script> - execute script
@help - help
@quit - quit
@multiline - switching to a multi-line mode
<expr> - evaluate the expression and print the result
$<var> := <expr>; - assign a global variable
.. $<var> .. - get a global variable value
@base <path> - set the base path for scripts
@load <path> - execute a script from file
@import <path> - load the script into multi-line script
@use <template> - use the template for multiline script
@eval - executing the multi-line code and switch back to REPL mode
@clear - clear the multi-line code and switch back to REPL mode
@print - print the multi-line code
@add import <reference> - importing a module into the session
@remove import <reference> - removing a module from the session
>-pf(s1,s2,sep){^ s1 + sep + sep + s2 }
>$f := { print(s1,s2,sep){^ s1 + sep + sep + s2 } };
>f("Rosetta","Code",":")
>$f.print("Rosetta","Code",":")
Rosetta::Code
>

5
Task/Interactive-programming-repl-/Emacs-Lisp/interactive-programming-repl--1.l
View file

@ -1,5 +0,0 @@
(defun my-join (str1 str2 sep)
(concat str1 sep sep str2))
my-join
(my-join "Rosetta" "Code" ":")
"Rosetta::Code"

7
Task/Interactive-programming-repl-/Emacs-Lisp/interactive-programming-repl--2.l
View file

@ -1,7 +0,0 @@
*** Welcome to IELM *** Type (describe-mode) for help.
ELISP> (defun my-join (str1 str2 sep)
(concat str1 sep sep str2))
my-join
ELISP> (my-join "Rosetta" "Code" ":")
"Rosetta::Code"
ELISP>

10
Task/Interactive-programming-repl-/PowerShell/interactive-programming-repl-.psh
View file

@ -1,10 +0,0 @@
Windows PowerShell
Copyright (C) 2009 Microsoft Corporation. All rights reserved.
PS Home:\> function f ([string] $string1, [string] $string2, [string] $separator) {
>> $string1 + $separator * 2 + $string2
>> }
>>
PS Home:\> f 'Rosetta' 'Code' ':'
Rosetta::Code
PS Home:\>

5
Task/Interactive-programming-repl-/REBOL/interactive-programming-repl-.rebol
View file

@ -1,5 +0,0 @@
$ rebol -q
>> f: func [a b s] [print rejoin [a s s b]]
>> f "Rosetta" "Code" ":"
Rosetta::Code
>> q

16
Task/Interactive-programming-repl-/REXX/interactive-programming-repl--1.rexx
View file

@ -1,4 +1,14 @@
/*REXX*/ parse arg a b c
say f(a,b,c)
-- 12 Sep 2025
say 'INTERACTIVE PROGRAMMING'
say
say 'Type source code at the REXX prompt, followed by Enter.'
say 'Just Enter or command ''exit'' leaves the program.'
say
do until command = ''
call Charout, 'REXX '
parse pull command
interpret command
say
end
say 'Goodbye!'
exit
f:return arg(1)arg(3)arg(3)arg(2)

29
Task/Interactive-programming-repl-/REXX/interactive-programming-repl--2.rexx
View file

@ -1,6 +1,23 @@
/*REXX program demonstrates interactive programming by using a function [F]. */
say f('Rosetta', "Code", ':')
say f('The definition of a trivial program is ', " one that has no bugs.", '───')
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
f: return arg(1) || copies(arg(3),2) || arg(2) /*return the required string to invoker*/
-- 12 Sep 2025
include Setting
say 'INTERACTIVE PROGRAMMING'
say version
say
say 'Type source code at the REXX prompt, followed by Enter.'
say 'Just Enter or command ''exit'' leaves the program.'
say
IgnoreError16:
include Setting
do until command = ''
call Charout, 'REXX '
parse pull command
interpret command
say
end
say 'Goodbye!'
exit
include Math

7
Task/Interactive-programming-repl-/REXX/interactive-programming-repl--3.rexx
View file

@ -1,7 +0,0 @@
/*REXX program demonstrates interactive programming by using a function [F]. */
say '══════════════════ enter the function F with three comma-separated arguments:'
parse pull funky
interpret 'SAY' funky
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
f: return arg(1) || copies(arg(3),2) || arg(2) /*return the required string to invoker*/