X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Frot13%2Frot13.factor;h=b364f4530d4f0d3f9aa405fb03b7d17cc7883577;hp=c8f08bcf30a1cfbcba5804c21a1f2895ac640e24;hb=96d543056491bfd71e65a093f4add5a6a5bb780d;hpb=6206ba5583b7616c59741963dbf01d8c9c88e223 diff --git a/extra/rot13/rot13.factor b/extra/rot13/rot13.factor index c8f08bcf30..b364f4530d 100644 --- a/extra/rot13/rot13.factor +++ b/extra/rot13/rot13.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2006 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. -USING: kernel math sequences strings io combinators ascii ; +USING: kernel math sequences io combinators ascii ; IN: rot13 : rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;