aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Bulls-and-cows/Factor/bulls-and-cows-1.factor
View file

@ -1,12 +1,11 @@
USING: io kernel math math.parser random ranges sequences sets ; IN: bullsncows
9 [1..b] 4 sample [ 48 + ] "" map-as
[ "guess the 4-digit number: " write flush readln dup
[ length 4 = ] [ [ 48 57 [a..b] in? ] all? ] bi and ! [48,57] is the ascii range for 0-9
[ 2dup =
[ 2drop "yep!" print flush f ]
[ "bulls & cows: " write
[ 0 [ = 1 0 ? + ] 2reduce ] [ intersect length ] 2bi over -
[ number>string ] bi@ " & " glue print flush t ]
if ]
[ 2drop "bad input" print t ]
if ] curry loop
USING: io kernel math math.parser math.vectors random ranges sequences sets ; IN: bullsncows
: fp ( str -- ) print flush ; inline : fw ( str -- ) write flush ; inline
: bac ( -- )
CHAR: 0 CHAR: 9 [a..b] dup 4 sample
'[ "guess the 4-digit number: " fw readln { } like
dup [ length 4 = ] keep [ _ in? ] all? and
[ _ [ v= vcount ] 2keep intersect length over - over 4 =
[ 2drop "correct!" fp f ]
[ "bulls & cows: " fw [ >dec ] bi@ " & " glue fp t ] if
] [ drop "bad input" fp t ] if
] loop ; MAIN: bac