view interps/c-intercal/pit/tests/permute.i @ 11943:0ab22b542e31 draft

<b_jonas> `` /bin/sed -i \'s/3\\./& She is her own grandpa./\' wisdom/kmc
author HackEso <hackeso@esolangs.org>
date Tue, 17 Sep 2019 19:57:39 +0000
parents 859f9b4339e6
children
line wrap: on
line source

	PLEASE NOTE THIS IS A BACKTRACKING PERMUTATION PROGRAM
	MAYBE DON'T GIVE UP
	DO .1 <- #0
(3)	DO (24) NEXT
(4)	DO (24) NEXT
(5)	DO (24) NEXT
(6)	DO (24) NEXT
(7)	DO (24) NEXT
(8)	DO (24) NEXT
	DO READ OUT .1
	PLEASE RETRIEVE .1
	DO READ OUT .1
	PLEASE RETRIEVE .1
	DO READ OUT .1
	PLEASE RETRIEVE .1
	DO READ OUT .1
	PLEASE RETRIEVE .1
	DO READ OUT .1
	PLEASE RETRIEVE .1
	DO READ OUT .1
	DO READ OUT #30
	DO COME FROM (22)
(22)	DO GO BACK

(24)   	PLEASE NOTE THIS RETURNS #1 TO #6 ON DIFFERENT BACKTRACKS
	DO STASH .1
(26)	DO .1 <- #1
(27)	DO .1 <- #2
(28)	DO .1 <- #3
(29)	DO .1 <- #4
(30)	DO .1 <- #5
	DO .1 <- #6
	DO RESUME #1
	MAYBE COME FROM (26)
	PLEASE RESUME #1
	MAYBE COME FROM (27)
	PLEASE RESUME #1
	MAYBE COME FROM (28)
	PLEASE RESUME #1
	MAYBE COME FROM (29)
	PLEASE RESUME #1
	MAYBE COME FROM (30)
	PLEASE RESUME #1

	PLEASE NOTE THIS BACKTRACKS IF .1 IS NONUNIQUE IN ITS STASH
	MAYBE COME FROM (3)
	MAYBE COME FROM (4)
	MAYBE COME FROM (5)
	MAYBE COME FROM (6)
	MAYBE COME FROM (7)
	MAYBE COME FROM (8)
	PLEASE DO .2 <- .1
	DO .3 <- #1
	DO COME FROM '"?"!3~.3'~#1"$#2"~#1'$#15
	PLEASE DO RETRIEVE .1
	DO ABSTAIN "?"!1~.1'~#1"$#1"~#3 FROM (55)
	DO REINSTATE (55)
(55)	DO GO BACK AGAIN
(87)	PLEASE DO .3 <- '?.1$.2'~#21845
	DO GO AHEAD
	DO COME FROM (61)
(61)	PLEASE DO GO BACK