Mercurial > repo

view interps/c-intercal/pit/tests/testarray.i @ 10776:b474172c9892

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<b_jonas> slashlearn ance//Spelling of -ance/-ence words: advance, science, conference, experience, finance, insurance, licence, performance, reference, assistance, balance, defence, difference, distance, evidence, acceptance, appliance, audience, compliance, importance, influence, instance, intelligence, maintenance, preference, presence, sentence, sequence, substance, violence, absence, accordance, alliance, appearance, assurance, attendance, circumstance, clea
author HackBot
date Fri, 21 Apr 2017 18:06:38 +0000
parents 859f9b4339e6
children
line wrap: on
line source

        PLEASE DO ,1 <- #3 BY #3
        DO ;2 <- #6
        DO ,2 <- #6
	DO .1 <- #1
	DO .2 <- #1
	DO ,1 SUB .2.1 <- #1
	DO ;2 SUB #5 <- #1
	DO .1 <- "?',1 SUB .2.1'$#1"~#3
	DO .2 <- ,1 SUB #1 ;2 SUB #5
	DO .1 <- .2~,1 SUB #1 #1
	DO STASH .1 + ,2 + ;2 + ,1 + ,3
	DO ,1 <- #500
	DO ,1 SUB #1 <- #112
	PLEASE DO READ OUT ,1 SUB .2
	PLEASE RETRIEVE ,2 + ,1 + ,3
	DO .1 <- #?1
	DO .1 <- .?1
	PLEASE DO READ OUT ,1 SUB #1 #1
	DO .1 <- .2$,&1 SUB #1 #1
	PLEASE DO READ OUT .1
	DO .1 <- .2$,V1 SUB #1 #1
	PLEASE DO READ OUT .1

	PLEASE GIVE UP