```1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ``` ```# FizzBuzz by code reference. (Without decision logic!!!) # First, take a fresh array. Be sure to wash it thoroughly to remove any dirt and residue. # Next, add in four code references, like so: @a=( sub {print "FizzBuzz\n"}, sub {print "Buzz\n"}, sub {print "Fizz\n"}, sub {print "\$_[0]\n"} ); # Set the array aside. # Next, take a list of numbers (from 1 to 100) # Then, take two "<=>" (spaceship operators) and two 0s # Combine them with each test value to produce two new values (1 or 0 for each new value). # The two values are the "multiple of 3 test result" and the "multiple of 5 test result." # Spice up the "multiple of 5 test result" by multiplying it by 2. # Mmmmm. . . Spicy! # Combine the fresh test results to come up with a new value that is # specific to the properties of the original value. # A value that is a multiple of 3 and 5 will get a combined test value result of 0. # A value that is a multiple of 5 will get a combined test value result of 1. # A value that is a multiple of 3 will get a combined test value result of 2. # A value that is not a multiple of 3 and 5 will get a combined test value result of 3. # Take the piping hot test value result and use it as an index for the array of code references. # Be sure to pass the original value through the array for the times when the code reference # at \$a[3] is called!!! \$a[(\$_%3<=>0) + (2*(\$_%5<=>0))]->(\$_) for (1..100) # And, would you look at that!? Each code reference prints out # "FizBuzz," "Buzz," "Fizz," or the original value # based on that crunchy-on-the-outside, tender-in-the-middle # combined test result! ```
 ```1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 ``` ```1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86 Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz ```