History variables: Difference between revisions
Add Factor example
(Add Factor example) |
|||
Line 631:
7> V3.
"123qweASD"
</pre>
=={{header|Factor}}==
<lang factor>USING: accessors combinators formatting kernel models.history ;
1 <history> {
[ add-history ]
[ value>> "Initial value: %u\n" printf ]
[ 2 >>value add-history ]
[ 3 swap value<< ]
[ value>> "Current value: %u\n" printf ]
[ go-back ]
[ go-back ]
[ value>> "Restored value: %u\n" printf ]
} cleave</lang>
{{out}}
<pre>
Initial value: 1
Current value: 3
Restored value: 1
</pre>
| |||