Correct the program Counts[StringTake[#,2]&/@WordList[]] for counting possible first two letters in words.

47.1

[ Click to enter code ]

Use Sow and Reap to find intermediate values of #1 in Fold[10#1+#2&,{1,2,3,4,5}].

47.2

[ Click to enter code ]

Use Sow and Reap to get a list of all cases where #/2 is used in Nest[If[EvenQ[#],#/2,3#+1]&,1000,20].

47.3

[ Click to enter code ]