User:NevilleDNZ
Jump to navigation
Jump to search
AKA NevilleDN2 @ uq - usb
International Travels Brag Sheet
Languages
Script error: No such module "Babel".
At last, a barn star for me
Curiously cheerful wikipedia201x contributors I have meet recently
- re: ALGOL 68G diff archive.orgDeletion log: ALGOL 68G sigh... c.f. User talk:RHaworth#ALGOL 68G
Test for the arrival of GeSHi version ≥ v1.0.8.8.4
Unicode System of Units
c.f. User:NevilleDNZ/Unicode System of Units
ALGOL 68
syntaxhighlight
def quick_sort(arr):
less = []
pivot_list = []
more = []
if len(arr) <= 1:
return arr
else:
pass
par: Parallel processing
ALGOL 68 supports programming of parallel processing. Using the keyword PAR, a collateral clause is converted to a parallel clause, where the synchronisation of actions is controlled using semaphores. In A68G the parallel actions are mapped to threads when available on the hosting operating system. In A68S a different paradigm of parallel processing was implemented (see below).
SyntaxHighlight_GeSHi
- https://www.mediawiki.org/wiki/Extension:SyntaxHighlight
- https://gerrit.wikimedia.org/g/mediawiki/extensions/SyntaxHighlight_GeSHi
PROC
eat = VOID: ( muffins-:=1; print(("Yum!",new line))),
speak = VOID: ( words-:=1; print(("Yak...",new line)));
INT muffins := 4, words := 8;
SEMA mouth = LEVEL 1;
PAR BEGIN
WHILE muffins > 0 DO
DOWN mouth;
eat;
UP mouth
OD,
WHILE words > 0 DO
DOWN mouth;
speak;
UP mouth
OD
END
vs.
PROC
eat = VOID: ( muffins-:=1; print(("Yum!",new line))),
speak = VOID: ( words-:=1; print(("Yak...",new line)));
INT muffins := 4, words := 8;
SEMA mouth = LEVEL 1;
PAR BEGIN
WHILE muffins > 0 DO
DOWN mouth;
eat;
UP mouth
OD,
WHILE words > 0 DO
DOWN mouth;
speak;
UP mouth
OD
END