Guest User

Untitled

a guest
Mar 23rd, 2018
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.14 KB | None | 0 0
  1. Kola nut
  2. Macadamia
  3. Mamoncillo
  4. Maya nut
  5. Mongongo
  6. Oak acorns
  7. Ogbono nut
  8. Paradise nut
  9. Pili nut
  10. Pistachio
  11. Walnut
  12.  
  13. ["walnut", "walnut", "pistachio"]
  14.  
  15. ["walnut", "pistachio", "walnut"]
  16.  
  17. ~.`{`{=}+%1-,}+$.,)2//zip[]*.2<..&=*p
  18.  
  19. > ["walnut" "walnut" "walnut" "macadamia" "pistachio"]
  20. ["walnut" "macadamia" "walnut" "pistachio" "walnut"]
  21.  
  22. > ["walnut" "walnut" "walnut" "macadamia" "walnut"]
  23. []
  24.  
  25. ~:x{]x-,}$.,)2//zip[]*.2<..&=*`
  26.  
  27. ]`_:@.(0<2&([:+/=/))({.~-:@#),((],.|.)~>.@-:@#)<"1;(:#&.>)(</.])[;.1' ',1!:1[1
  28.  
  29. macadamia walnut walnut pistachio walnut
  30.  
  31. macadamia walnut walnut walnut pistachio
  32.  
  33. walnut walnut walnut macadamia pistachio
  34.  
  35. walnut macadamia walnut pistachio walnut
  36.  
  37. p.¬{s₂=}∨Ė
  38.  
  39. p.¬{s₂=}∨Ė
  40. p Find a permutation of {the input}
  41. ¬{ } which does not have the following property:
  42. s₂ it contains a pair of adjacent elements
  43. = that are equal
  44. ∨ {no constraint on what value the equal elements can have}
  45. . If you find such a permutation, output it.
  46. ∨ If no permutation is found, ignore the input and
  47. Ė {output} an empty list
Add Comment
Please, Sign In to add comment