% Content-encoding: UTF-8 \documentclass[ngerman]{article} \usepackage[T1]{fontenc} \usepackage[utf8]{inputenc} \setcounter{secnumdepth}{0} \setcounter{tocdepth}{0} \begin{document} \title{Gedankenlesen} \author{Michael Kalus} \maketitle \begin{multicols}{2} \parskip = 0.33\baselineskip \advance\parskip by 0pt plus 2pt Einige kennen diese Spielerei möglicherweise schon. Aber ich war neulich erstmal wieder verblüfft über den Effekt. Und musste noch mal genauer hinsehen, wie das eigentlich funktioniert. Da wird man aufgefordert, sich eine zweistellige Zahl zu denken, deren Quersumme davon abzuziehen und das Ergebnis als Index in eine Symboltabelle zu benutzen. Und nun intensiv dieses Symbol anzuschauen, damit der Computer es erspüren könne! Und siehe da, es klappt tatsächlich. Ja, warum klappt das?? Deswegen: \begin{verbatim} : ?? ( -- ) 100 10 DO cr i . i i 10 /mod + - . LOOP ; \end{verbatim} Es ist eigentlich sehr einfach. Hier der Beweis: \columnbreak \begin{footnotesize} \begin{verbatim} Gedankenlesen in Forth Denke an eine zweistellige Zahl, z.B. die 54. Ziehe von dieser Zahl ihre 2 Ziffern ab (54-5-4=45) Suche das Symbol, das zu diesem Ergebnis passt. Konzentriere dich auf dieses Symbol und druecke eine Taste... 0 P 1 g 2 f 3 ` 4 V 5 w 6 [ 7 _ 8 c 9 c 10 W 11 } 12 E 13 < 14 e 15 k 16 h 17 ^ 18 c 19 x 20 k 21 R 22 ] 23 l 24 o 25 f 26 d 27 c 28 V 29 z 30 Q 31 c 32 t 33 _ 34 c 35 C 36 c 37 O 38 b 39 P 40 { 41 r 42 J 43 W 44 u 45 c 46 u 47 j 48 y 49 V 50 [ 51 x 52 v 53 H 54 c 55 j 56 a 57 g 58 W 59 K 60 i 61 z 62 a 63 c 64 m 65 b 66 ` 67 x 68 | 69 t 70 @ 71 < 72 c 73 n 74 < 75 i 76 O 77 f 78 j 79 l 80 W 81 c 82 \ 83 ^ 84 } 85 @ 86 \ 87 J 88 k 89 h 90 R 91 ^ 92 s 93 V 94 f 95 j 96 p 97 R 98 a 99 N Es ist: c Noch mal? --> Leertaste! \end{verbatim} \end{footnotesize} Viel Vergnügen beim Nachrätseln, oder damit andere zu verblüffen. \end{multicols} \section{Links} \url{http://www.isnichwahr.de/redirect15446.html}\\ \url{http://www.extremefunnyhumor.com/magic_mindreader.htm} \begin{multicols}{2} \section{Listing} \begin{footnotesize} \listinginput[1]{1}{2006-04/Gedankenlesen.fs} \end{footnotesize} \end{multicols} %\end{document}