Vector/Algorithms/Optimal.hs

62     GT -> unsafeWrite a i a1 >> unsafeWrite a j a0
87                     LT -> do unsafeWrite a i a2
88                              unsafeWrite a k a0
89                     _  -> do unsafeWrite a i a1
90                              unsafeWrite a j a2
91                              unsafeWrite a k a0
92             _  -> do unsafeWrite a i a1
93                      unsafeWrite a j a0
96                     GT -> do unsafeWrite a i a2
97                              unsafeWrite a j a0
98                              unsafeWrite a k a1
99                     _  -> do unsafeWrite a j a2
100                              unsafeWrite a k a1
130                                     GT -> do unsafeWrite a i a3
131                                              unsafeWrite a j a2
132                                              unsafeWrite a k a1
133                                              unsafeWrite a l a0
134                                     _  -> do unsafeWrite a i a2
135                                              unsafeWrite a j a3
136                                              unsafeWrite a k a1
137                                              unsafeWrite a l a0
139                                     GT -> do unsafeWrite a i a2
140                                              unsafeWrite a j a1
141                                              unsafeWrite a k a3
142                                              unsafeWrite a l a0
143                                     _  -> do unsafeWrite a i a2
144                                              unsafeWrite a j a1
145                                              unsafeWrite a k a0
146                                              unsafeWrite a l a3
149                                    GT -> do unsafeWrite a i a3
150                                             unsafeWrite a j a1
151                                             unsafeWrite a k a2
152                                             unsafeWrite a l a0
153                                    _  -> do unsafeWrite a i a1
154                                             unsafeWrite a j a3
155                                             unsafeWrite a k a2
156                                             unsafeWrite a l a0
158                                    GT -> do unsafeWrite a i a1
159                                             unsafeWrite a j a2
160                                             unsafeWrite a k a3
161                                             unsafeWrite a l a0
162                                    _  -> do unsafeWrite a i a1
163                                             unsafeWrite a j a2
164                                             unsafeWrite a k a0
168                             GT -> do unsafeWrite a i a3
170                                      unsafeWrite a k a0
171                                      unsafeWrite a l a2
172                             _  -> do unsafeWrite a i a1
173                                      unsafeWrite a j a3
174                                      unsafeWrite a k a0
175                                      unsafeWrite a l a2
177                             GT -> do unsafeWrite a i a1
178                                      unsafeWrite a j a0
179                                      unsafeWrite a k a3
180                                      unsafeWrite a l a2
181                             _  -> do unsafeWrite a i a1
182                                      unsafeWrite a j a0
189                                     GT -> do unsafeWrite a i a3
190                                              unsafeWrite a j a2
191                                              unsafeWrite a k a0
192                                              unsafeWrite a l a1
193                                     _  -> do unsafeWrite a i a2
194                                              unsafeWrite a j a3
195                                              unsafeWrite a k a0
196                                              unsafeWrite a l a1
198                                     GT -> do unsafeWrite a i a2
199                                              unsafeWrite a j a0
200                                              unsafeWrite a k a3
201                                              unsafeWrite a l a1
202                                     _  -> do unsafeWrite a i a2
203                                              unsafeWrite a j a0
204                                              unsafeWrite a k a1
208                                     GT -> do unsafeWrite a i a3
209                                              unsafeWrite a j a0
211                                              unsafeWrite a l a1
213                                              unsafeWrite a j a3
215                                              unsafeWrite a l a1
218                                              unsafeWrite a j a2
219                                              unsafeWrite a k a3
220                                              unsafeWrite a l a1
222                                              unsafeWrite a j a2
223                                              unsafeWrite a k a1
227                             GT -> do unsafeWrite a i a3
228                                      unsafeWrite a j a0
229                                      unsafeWrite a k a1
230                                      unsafeWrite a l a2
232                                      unsafeWrite a j a3
233                                      unsafeWrite a k a1
234                                      unsafeWrite a l a2
238                                      unsafeWrite a k a3
239                                      unsafeWrite a l a2