Mercurial > repo
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 995:6883f5911eb7 | 996:859f9b4339e6 |
|---|---|
| 1 PLEASE NOTE: this program demonstrates quantum ignore, but it could | |
| 2 just as easily demonstrate quantum remember: uncomment the commented | |
| 3 out quantum remember, and comment out the quantum ignore, to produce | |
| 4 an identical program. | |
| 5 | |
| 6 Requires CLC-INTERCAL 1.-94 or newer. | |
| 7 | |
| 8 Copyright (c) 2006 Claudio Calvelli, all rights reserved. | |
| 9 | |
| 10 CLC-INTERCAL is copyrighted software. However, permission to use, modify, | |
| 11 and distribute it is granted provided that the conditions set out in the | |
| 12 licence agreement are met. See files README and COPYING in the distribution. | |
| 13 | |
| 14 DO .5 <- #5 | |
| 15 DO .1 <- #1 | |
| 16 DO .2 <- #2 | |
| 17 PLEASE IGNORE .1 WHILE REMEMBERING IT | |
| 18 DO NOT REMEMBER .1 WHILE IGNORING IT | |
| 19 (1) DO .1 <- #0 | |
| 20 DO COME FROM (4) | |
| 21 (5) PLEASE COME FROM .5 | |
| 22 DO .5 <- #5 | |
| 23 DO WRITE IN .3 | |
| 24 (8) DO .4 <- #2 ¢ "'.3 ~ .3' ~ #1" | |
| 25 (4) DO .2 <- #0 | |
| 26 | |
| 27 PLEASE COME FROM (3) | |
| 28 DO .2 <- #2 | |
| 29 PLEASE COME FROM .1 | |
| 30 DO .5 <- #0 | |
| 31 (2) DO COME FROM .2 | |
| 32 | |
| 33 DON'T WORRY THAT I'M REPEATING A LABEL - YOU CAN NOW QUITE | |
| 34 GET AWAY WITH IT AS LONG AS YOU ARE VERY CAREFUL ABOUT WHAT | |
| 35 EVIDENCE YOU LEAVE AROUND. SO, WITHOUT FURTHER DELAY, HERE | |
| 36 FOLLOWS THE REPEATED LABEL: | |
| 37 (8) PLEASE DO NOT PRODUCE AN ERROR | |
| 38 | |
| 39 (3) DO READ OUT .3 | |
| 40 | |
| 41 DO NOT DESPAIR TO UNDERSTAND THE ABOVE | |
| 42 IT'S ALL REALLY REALLY SIMPLE | |
| 43 THERE ARE TWO STATES (QUANTUM, SUPERPOSED) | |
| 44 AND IN THESE TWO STATES | |
| 45 THE VALUES OF REGISTER .1 | |
| 46 DO NOT QUITE CORRESPOND, | |
| 47 BEING THEY ONE AND ZERO | |
| 48 AT THE SAME TIME | |
| 49 AND THERE IS SOMEWHERE | |
| 50 A COMPUTED "COME FROM .1", WHICH, SURPRISE! | |
| 51 WILL WORK IN ONE STATE BUT NOT IN THE OTHER. | |
| 52 THE TWO STATES WILL THEN QUITE DIFFER FROM EACH OTHER | |
| 53 ONE BEING WRITING NUMBERS | |
| 54 AND THE OTHER READING THEM IN THE SAME ORDER | |
| 55 BUT NOT NECESSARILY IMMEDIATELY | |
| 56 AND THAT'S ALL I'M GOING TO SAY | |
| 57 BUT DO NOT THINK FOR A SECOND | |
| 58 THAT IT'S ALL THERE IS TO SEE. | |
| 59 | |
| 60 BUT WAIT! THERE'S MORE: | |
| 61 | |
| 62 PLEASE COME FROM .4 | |
| 63 DO .2 <- #0 | |
| 64 DO GIVE UP NOW - I'M TIRED OF THIS | |
| 65 | |
| 66 THE END | |
| 67 |