1string string>number -> digit>

2012-08-02 02:04:00 +02:00 · 2012-08-02 02:04:00 +02:00 · 8030432541
parent ce01c2b411
commit 8030432541
1 changed files with 1 additions and 1 deletions
--- a/extra/project-euler/040/040.factor
+++ b/extra/project-euler/040/040.factor
@ -37,7 +37,7 @@ IN: project-euler.040
    SBUF" " clone 1 -rot (concat-upto) ;

 : nth-integer ( n str -- m )
-    [ 1 - ] dip nth 1string string>number ;
+    [ 1 - ] dip nth digit> ;

 PRIVATE>