steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

1string string>number -> digit>

db4
Jon Harper 2012-08-02 02:04:00 +02:00 committed by John Benediktsson
parent ce01c2b411
commit 8030432541
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/project-euler/040/040.factor
View File

@ -37,7 +37,7 @@ IN: project-euler.040
SBUF" " clone 1 -rot (concat-upto) ; SBUF" " clone 1 -rot (concat-upto) ;
: nth-integer ( n str -- m ) : nth-integer ( n str -- m )
[ 1 - ] dip nth 1string string>number ; [ 1 - ] dip nth digit> ;
PRIVATE> PRIVATE>