Data update

Task/Bulls-and-cows/J/bulls-and-cows-1.j

@@ -1,5 +1,4 @@
 output=. ['Bulls: '&,:@'Cows: 'echo@,.":@,.
-valid =. *./@e.&Num_j_*.4=#
-guess =. 0 ".&> $:^:(-.@valid)@(1!:1@1)@echo@'Guess:'{{x u y}}
-game  =. [ $:^:(4 0-.@-:]) [ (+/@:= output@, e. +/@:*. ~:) guess
+guess =. 0".&>1!:1@1@echo@'Guess:'^:(*./@e.&Num_j_*:4=#)^:_.@]
+game  =. ([:output [ (= ,&(+/) e.*.~:) guess)^:(4 0-.@-:])^:_.
 moo   =. 'You win!'[ (1+4?9:) game ]

Task/Bulls-and-cows/J/bulls-and-cows-2.j

@@ -1,11 +1,4 @@
-U       =. {{u^:(-.@:v)^:_.}}   NB. apply u until v is true
-input   =. 1!:1@1@echo@'Guess: '
-output  =. [ ('Bulls: ',:'Cows: ')echo@,.":@,.
-isdigits=. *./@e.&Num_j_
-valid   =. isdigits*.4=#
-guess   =. 0".&>input U(valid@])
-bulls   =. +/@:=
-cows    =. [:+/e.*.~:
-game    =. ([:output [(bulls,cows) guess)U(4 0-:])
-random  =. 1+4?9:
-moo     =. 'You win!'[ random game ]
+output=. ['Bulls: '&,:@'Cows: 'echo@,.":@,.
+guess =. $:^:(*./@e.&Num_j_*:4=#)@(1!:1@1)@echo@'Guess:'
+game  =. [ $:^:(4 0-.@-:]) [:output [ (= ,&(+/) e.*.~:) 0".&>guess
+moo   =. 'You win!'[ (1+4?9:) game ]

Task/Bulls-and-cows/J/bulls-and-cows-3.j

@@ -1,24 +1 @@
-require 'misc'
-
-plural=: conjunction define
- (":m),' ',n,'s'#~1~:m
-)
-
-bullcow=:monad define
-  number=. 1+4?9
-  whilst. -.guess-:number do.
-    guess=. 0 "."0 prompt 'Guess my number: '
-    if. (4~:#guess)+.(4~:#~.guess)+.0 e.guess e.1+i.9 do.
-      if. 0=#guess do.
-        smoutput 'Giving up.'
-        return.
-      end.
-      smoutput 'Guesses must be four different non-zero digits'
-      continue.
-    end.
-    bulls=. +/guess=number
-    cows=. (+/guess e.number)-bulls
-    smoutput bulls plural 'bull',' and ',cows plural 'cow','.'
-  end.
-  smoutput 'you win'
-)
+guess =. 0 ".&> $:^:(*./@e.&Num_j_*:4=#)@(1!:1@1)@echo@'Guess:'{{x u y}}

Task/Bulls-and-cows/J/bulls-and-cows-4.j

@@ -1,16 +1,24 @@
-   bullcow''
-Guess my number: 1234
-0 bulls and 1 cow.
-Guess my number: 5678
-3 bulls and 0 cows.
-Guess my number: 2349
-0 bulls and 0 cows.
-Guess my number: 1567
-0 bulls and 3 cows.
-Guess my number: 6178
-3 bulls and 0 cows.
-Guess my number: 6157
-1 bull and 2 cows.
-Guess my number: 5178
-4 bulls and 0 cows.
-you win
+require 'misc'
+
+plural=: conjunction define
+ (":m),' ',n,'s'#~1~:m
+)
+
+bullcow=:monad define
+  number=. 1+4?9
+  whilst. -.guess-:number do.
+    guess=. 0 "."0 prompt 'Guess my number: '
+    if. (4~:#guess)+.(4~:#~.guess)+.0 e.guess e.1+i.9 do.
+      if. 0=#guess do.
+        echo 'Giving up.'
+        return.
+      end.
+      echo 'Guesses must be four different non-zero digits'
+      continue.
+    end.
+    bulls=. +/guess=number
+    cows=. (+/guess e.number)-bulls
+    echo bulls plural 'bull',' and ',cows plural 'cow','.'
+  end.
+  echo 'you win'
+)