This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Metrowerks C/C++ Compiler for Embedded PowerPC. | |
Copyright (c) 2002, Metrowerks Corporation | |
All rights reserved. | |
Version 2.4.7 build 92 | |
Runtime Built: Sep 16 2002 15:14:48 | |
Please enter 'mwcceppc.exe -help' for information about options. | |
------------------------------------------------------------------------------- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import Data.List | |
import Data.Char | |
alphabet = ['a'..'z'] | |
caesar = shiftRight 23 alphabet | |
shiftRight n xs = take (length xs) (drop n (cycle xs)) | |
secret = map encrypt |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; Tests DI, EI, and HALT (STOP proved untestable) | |
.include "shell.inc" | |
main: | |
wreg IE,$04 | |
set_test 2,"EI" | |
ei | |
ld bc,0 |