File: tuple.wl

package info (click to toggle)
wadc 2.1%2Bgit3aac3015-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 1,312 kB
  • ctags: 643
  • sloc: java: 2,771; ansic: 1,526; xml: 125; makefile: 33; sh: 13
file content (9 lines) | stat: -rw-r--r-- 107 bytes parent folder | download
1
2
3
4
5
6
7
8
9
#"list.wl"

-- tuples.

tuple_eq(ta, tb) {
  eq( hd(ta), hd(tb) )
      ? eq( tl(ta), tl(tb) )
      : 0
}