Mercurial > repo
diff interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/quantum/ignore.i @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
author | HackBot |
---|---|
date | Sun, 09 Dec 2012 19:30:08 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/quantum/ignore.i Sun Dec 09 19:30:08 2012 +0000 @@ -0,0 +1,67 @@ + PLEASE NOTE: this program demonstrates quantum ignore, but it could + just as easily demonstrate quantum remember: uncomment the commented + out quantum remember, and comment out the quantum ignore, to produce + an identical program. + + Requires CLC-INTERCAL 1.-94 or newer. + +Copyright (c) 2006 Claudio Calvelli, all rights reserved. + +CLC-INTERCAL is copyrighted software. However, permission to use, modify, +and distribute it is granted provided that the conditions set out in the +licence agreement are met. See files README and COPYING in the distribution. + + DO .5 <- #5 + DO .1 <- #1 + DO .2 <- #2 + PLEASE IGNORE .1 WHILE REMEMBERING IT + DO NOT REMEMBER .1 WHILE IGNORING IT +(1) DO .1 <- #0 + DO COME FROM (4) +(5) PLEASE COME FROM .5 + DO .5 <- #5 + DO WRITE IN .3 +(8) DO .4 <- #2 ¢ "'.3 ~ .3' ~ #1" +(4) DO .2 <- #0 + + PLEASE COME FROM (3) + DO .2 <- #2 + PLEASE COME FROM .1 + DO .5 <- #0 +(2) DO COME FROM .2 + + DON'T WORRY THAT I'M REPEATING A LABEL - YOU CAN NOW QUITE + GET AWAY WITH IT AS LONG AS YOU ARE VERY CAREFUL ABOUT WHAT + EVIDENCE YOU LEAVE AROUND. SO, WITHOUT FURTHER DELAY, HERE + FOLLOWS THE REPEATED LABEL: +(8) PLEASE DO NOT PRODUCE AN ERROR + +(3) DO READ OUT .3 + + DO NOT DESPAIR TO UNDERSTAND THE ABOVE + IT'S ALL REALLY REALLY SIMPLE + THERE ARE TWO STATES (QUANTUM, SUPERPOSED) + AND IN THESE TWO STATES + THE VALUES OF REGISTER .1 + DO NOT QUITE CORRESPOND, + BEING THEY ONE AND ZERO + AT THE SAME TIME + AND THERE IS SOMEWHERE + A COMPUTED "COME FROM .1", WHICH, SURPRISE! + WILL WORK IN ONE STATE BUT NOT IN THE OTHER. + THE TWO STATES WILL THEN QUITE DIFFER FROM EACH OTHER + ONE BEING WRITING NUMBERS + AND THE OTHER READING THEM IN THE SAME ORDER + BUT NOT NECESSARILY IMMEDIATELY + AND THAT'S ALL I'M GOING TO SAY + BUT DO NOT THINK FOR A SECOND + THAT IT'S ALL THERE IS TO SEE. + + BUT WAIT! THERE'S MORE: + + PLEASE COME FROM .4 + DO .2 <- #0 + DO GIVE UP NOW - I'M TIRED OF THIS + + THE END +