TWEETS FROM PARROTS
FED WITH CARROTS

2018-01-23 07:48 EST

Great unity in the Republican Party. Want to, once and for all, put an end to stoppable crime and drugs! Border Security and Wall. No doubt!

— Donald J. Trump (@realDonaldTrump) January 23, 2019


2018-01-23 07:57 EST

BUILD A WALL & CRIME WILL FALL! This is the new theme, for two years until the Wall is finished (under construction now), of the Republican Party. Use it and pray!

— Donald J. Trump (@realDonaldTrump) January 23, 2019


2018-01-23 07:59 EST

BUILD A WALL & CRIME WILL FALL!

— Donald J. Trump (@realDonaldTrump) January 23, 2019


2018-01-23 08:13 EST

BUILD A WALL
& CRIME WILL FALL!
BUILD A WALL
& CRIME WILL FALL!
BUILD A WALL
& CRIME WILL FALL!
BUILD A WALL
& CRIME WILL FALL!
BUILD A WALL
& CRIME WILL FALL!
BUILD A WALL
& CRIME WILL FALL!
BUILD A WALL
& CRIME WILL FALL!

— CC (@ChatByCC) January 23, 2019


2018-01-24 08:43 EST

TWEETS FROM PARROTS FED WITH CARROTShttps://t.co/41m74hVQUK

— Goetz Kluge (@Bonnetmaker) January 24, 2019

 


Application: The Bellman’s Rule

#! /usr/bin/haskell
import Data.List
statementList :: [String]
statementList =
  ["BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"I am a stable genius!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"1+1=2"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"I am a stable genius!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"I am a stable genius!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ,"BUILD A WALL & CRIME WILL FALL!"
  ]
atLeastThrice :: [String] -> [String]
atLeastThrice sL =
  [head grp | grp <-
    group $ sort sL, length grp >= 3]

Result (if loaded and executed in GHCi):

*Main> atLeastThrice statementList
["BUILD A WALL & CRIME WILL FALL!","I am a stable genius!"]

Interpretation: “BUILD A WALL & CRIME WILL FALL!” and “I am a stable genius!” are true, because both assertions appeared at least three times. Actually, “BUILD A WALL & CRIME WILL FALL!” is double-plus-true, because all letters have been capitalized and because the assertion ends with an exclamation mark.


Search "BUILD THE WALL" and "CRIME WILL FALL" in @realDonaldTrump:https://t.co/r4vMrX6yrf

Search "BUILD THE WALL" and "CRIME WILL FALL" in @GOP:https://t.co/upeVJ9zgeO

Why doesn't the GOP use Trumps theme?https://t.co/HULCiKMnxT

— Goetz Kluge (@Bonnetmaker) January 25, 2019

GDPR Cookie Consent with Real Cookie Banner